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O LIVRO 


Este livro foi dividido em duas partes: a primeira destina-se àqueles jogadores que gostam de 
programar e desejam colocar um “pouco” de imaginação e criatividade nos jogos. Nesta primeira 
parte estão jogos simples.de fácil compreensão com um pouco de estudo e conhecimento de 
Basic do MSX. 

Com estes atributos, a primeira parte, que denominamos de “JOGOS PARA APRENDER 
E CRIAR”, é ideal para programadores iniciantes, que poderio ampliar e melhorar estes jogos. Para 
ajudar, colocamos em cada jogo algumas sugestões de modificações possíveis. 

A segunda parte contém o que denominamos de “JOGOS PROFISSIONAIS". Este nome 
advém do fato de que estes jogos sáo altamente elaborados, comparando-se com os jogos que sáo 
comercializados para o MSX cm fita cassete e cartucho. Um grande atributo destes jogos é que a 
maioria será compreendida por vocé mais cedo ou mais tarde..., quando, entáo. poderá alterá-los 
a seu gosto. 

Cabe notar que todos os jogos possuem recursos sonoros ... nio esqueça de aumentar o 
volume (mas lembre-se dos vizinhos!). 

Boa sorte ! 




CONVENÇÕES adotadas 



Adotamos algumas regras e convenções para a elaboração deste livro, visando facilitar a vida 
dc quem nunca programou ou utilizou um microcomputador MSX. Vejamos: 

- Não utilização de símbolos (caracteres) especiais ou acentos nas listagens dos programas, 
com o objetivo de padronização para todos os MSX nacionais. 

- Definição do símbolo dc "entra linha" por ^ . Para aqueles que já conhecem alguns 
microcomputadores, este símbolo é o equivalente a “RETURN’ , CR , ENTER etc. 

Definição dos símbolos das teclas de movimentação de cursor por flechas indicativas. 
Estas teclas de movimentação estão situadas no lado direito do teclado. Abaixo temos nossa 
convenção: 

(♦-) "para esquerda” 

(-♦) "para direita" 

(t) “para cima" 

(1) "para baixo” 




COMO EVITAR FALHAS 


Abaixo, temos algumas dicas fundamentais, que com certeza tomaráo seu trabalho mais simples 
e menos sujeito a erros. 

- Cuidado para nSo confundir a letra “o" com o número zero; caso isto ocorra, o programa náo 
funcionará adequadamente. 

A letra o aparece como: 0 

0 número zero aparece como: 0 

- A cada 15 minutos de digitação, você deve armazenar o seu programa (mesmo que incompleto) 
em fita cassete ou disquete. Existem duas razões para este procedimento: caso acabe a energia 
elétrica, você terá uma cópia do seu trabalho armazenada c digitações muito extensas podem ser 
feitas cm várias etapas. 

É aconselhável (mas nSo indispensável) o uso de um gravador com contador de voltas. 

- Depois de terminada toda a digitação de um jogo. faça uma cópia reserva do mesmo em outra 
fita cassete, ou disquete, pois cm caso de acidente existirá uma cópia reserva dos seus programas. 
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CAPÍTULO 




CASSINO 


Referências 

Nível de compreensão do programa pelo usuário: FÁCIL 
Tipo de jogo: JOGO DE AZAR. 

Dificuldade do jogo: FÁCIL. 


O jogo 

£ uma variaçío simplificada de um caça níqueis, em que o jogador deve fazer uma 
aposta. Se vocé obtém certas combinações de símbolos, ganha segundo a aposta e a combinação 

obtida. 

Os símbolos s5o mostrados como números Existe uma combinação especial que permite 
obter os limões. 

Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita com o comando: 

CSAVE "CASSINO" «J 

Para recuperar : para ler o programa da fita, digite: 


CLOAD "CASSINO" «- 1 

— 3 
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MS X Jogos. Para aprender e criar Jogos profissionais 


Disquete 

p ara armazenar, depois de digitar o programa, salve-o em disquete com o comando: 
SA VE "CASSINO. B AS” «J 

Para recuperar- para recuperar o programa do disquete, digite: 

LOAD"CASSINO BAS” 


Como jogar 

Digite RUN e «J ou pressione a tecla F5. 

A pnmeira mensagem «í : 

"QUANTIA INICIAL:'' 

que é quanto vocí tem em caixa inicialmentc. Após pressionar (retum), introduza a primeira 
aposta, diierente de zero, e novamente pressione *J (return). 

Visualize então as trés cifras sorteadas, com o resultado obtido (ganhou ou perdeu). 

Para apostar novamente, pressione *J (retum), e assim sucessivamente. Para terminar o 

jogo, responda 0 (zero) á pergunto “Sua aposto?”, mostrando como final o quanto resta em 
caixa. 

Para interromper o jogo a qualquer momento, tecle CRTL + STOP 

Extensões possíveis melhoramento dos controles, figuras gráficas no lugar dos números etc. 

10 REM — CASSINO 
20 SCREENOsF*RND(-TIHE) 

30 F0RI=1T0F:Y=RND( 1 ) iNEXT 
40 PR INT s I NP UT "QUANTIA INICIAL :"-P 
50 COLOR i 3 r 1 4 3 CLS 
60 FOR I“í T03 

70 L0CATE4 + 7* I r 5 s PR INT"+ +" t L0CATE4+7*I r 6 s PR INI" ! 

!"sL0CAT'E4+7*I,7sPR1NT"+ + " 


Canino 


S 


ao NEXTI 

90 L0CATE13 , ósPRINT" "s L0CATE20 , 6 : PR INT" ":L0CATE27,6 
SPRINT" " 

100 LOCATEO, 11 8 INPUT"SUA APOSTA s" ? M 

110 IFh*00RM >PTHEN290 

120 60SUB270 

130 A=X 

140 0OSUB27O 

150 B=X 

160 G0SUB270 

170 LOCATE 12 , 6SPRINTAS L.OCATE 19 ,6sPRINTBs L0CATE26 , 2 s PR 
INTX 

180 IFA=BANDA=XTHEN240 
190 N=-M 

200 LOCATEO, 1 1 : PR INT"APOSTA 8",M»" - RESULTADO 
• N - " " 

210 PR INT : PR INT"PRESSIONE UMA TECLA" sR%=INPUT$(i) 

220 P=P+N 
230 GOTOSO 

240 N=M*50 

250 1FA=7THENN-M*500 
260 G0T02Q0 

270 X=INT <RND( 1 )*9+i ) :PLAY"L32A" 
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280 REHURN 
290 CLS 

300 PR INT"V0CF TEM " ; p 

310 PR1NT"ATE LOGO. " ! PLAY"CDEFG" 



Referências 

Nível de compreensJo do programa pelo usuário: FÁCIL 

Tipo de jogo: REFLEXÃO. 

Dificuldade do jogo: FÁCIL. 

O jogo 

Esta i uma batalha simples, com um barco escondido em um quadriculado de 10 por 
10 casas. 

Hm cada jogada dispara-sc um tiro, dando-se as coordenadas horizontais c verticais da casa 
que sc aponta, e o MSX mostra visualmente a distância que separa o barco invisível da casa onde 
foi dado o tiro. 

Contudo, tenha cuidado! Se o disparo for efetuado próximo ao barco, existe o perigo de que 
o mesmo navegue para uma outra casa do quadriculado. 

Fita K-7 

Para armazenar : depois de digitar o programa, salve-o cm fita com o comando. 

CSAVe-BATALH" ^ 

Para recuperar: para ler o programa da fita, digite: 

CLOAD-BATALH" «-* 





MSXJogos Para aprender e criar. Jogos profissionais 


Dbquatt 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"BATALHA.BAS" *-> 

Para recuperar: para ler o programa do disquete, digite : 


LOAD"BATALHA.BA5" «- 1 


Como jogar 


Digite RUN e ou pressione a tecla F5. 

Após isto, visualize o campo de jogo. Em seguida o programa pedirá: 

"COORDENADA HORIZONTAL?" 

horirnm f nÚ ?* r ° ** ° "** 9 ' COníonne 0 ma P* <«■ ttíà. Fornecida a coordenada 

horizontal, a nova pergunta 6: 

"COORDENADA VERTICAL?" 

«k* m nta " 10 de 0 *“ 9 - & ° "‘•'“o “ <■“ d “» k™. 

"TCHIBUMI" 


o que significa que o barco inimigo mudou de posição. Caso 
do total de disparos efetuados para afundar o navio. 

Para interromper o jogo tecle CTRL + STOP. 


acerte no alvo, obterá a visualização 


Extensões possíveis: 
quadriculado etc. 


uso de dois jogadores, vários barcos, submarinos, ampliação do 


10 REh — BATALHA NAVAL 
20 SCREENO s F=RND ( -TIME) 

30 rORI=lTOF s Y=RND< 1 > :NEXT 

AO PRINT" 0123456789 


50 FOR I=0T09 



Batalha naval 


9 


60 PRINTI •/' 

70 PRINT 
80 NEXTI 
90 S=1 

100 X=INT <RND( 1 )#) 0 ) 

110 Y=INT(RND(i)*10) 

120 LOCATEO ,20sPRINT 

130 LOCATEO, 20 : PR INT"COOR . HOR . " ; s Hl-INPUTS ( 1 > : H=VAL ( 
<H*> sPRINTH 

140 L0CATE18, 2Q; PR INT"COOR . VER *V*=INPUT4< 1 ) :V=VAL 
<V%) : PR INTV 

150 L0CATE3#V+3,2#H+1 SPRINTS 

160 D«INT(SQR< <X-H)*<X-H> + <Y~V>*<Y-V> ) > 

170 IFD=0THEN220 
180 S=S+1 

190 IFD^ITHENLOCATEO , 21 s PR INT"TCHIBUM ! " , " "sGOTOlOO 
200 LOCATEO r 2isPRINT"DIST ANC I A ", 

210 G0T0120 
220 CLS 

230 PR INT"ACERTOU COM"jS;" DISPAROS":PLAY"CDE" 



CAPITULO 



GORKS 


Referências 

Nível de compreendo do programa pelo usuário: MEDIANO. 
Tipo de Jogo: LÓGICA e AGILIDADE. 

Dificuldade do jogo: MUITO FÁCIL. 


O jogo 

Os GORKS são seres maléficos, que tentarão destruí-lo, porém isto poderá ser evitado com 
a utilização de agulhas negras. 

No video, os GORKS aparecem como um G, as agulhas negras como quadrados negros e o 
jogador é visível como um 0. Os GORKS convergem para o jogador, tentando capturá-lo, porém 
este se movimenta mais rápido c você procurará fazer com que os GORKS caiam sobre as agulhas 
negras sem deixar capturar. 


Fita K-7 

Para armazenar - depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"GORKS " J 

Para recuperar e jogar; para ler o programa da fita, digite: 

CLOAD"GORKS" J 
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Gorks 


li 


Disquete 

Para arrmzenar: depois de digitar o programa, salvc-o em disquete com o comando: 
SAVE-GORKS.BAS" J 

Para recuperar: para ler o programa do disquete, digite: 

LOAD"GORKS.8AS" «-• 

Como jogar 

Digite RUN e «-* ou pressione a tecla F5 .. 

Utilizando as teclas de movimentação de cursor (■*-, t, 4) e tendo o cuidado de não sair 
dos limites do terreno, desloque o jogador. 

Este deslocamento deve ser feito de tal forma que os GORKS caiam sobre as agulhas negras, 
sem que nenhum deles capture o jogador. 

para encenar a partida a qualquer momento, tecle CTRL + -STOP. 

Extensões possíveis: aumentar o tamanho do terreno, aumentar o número de GORKS ou 
de agulhas negras, melhorar o controle etc. 

10 REM — GORKS 

20 SS»INKEYS:Y=RND(-T1ME) sIF Si="" THEN 20 
30 DIM T ( 23,21 > 

40 SCREEN 1 s COLOR 6,9,l3sKEY 0FF 

50 FOR 1=0 T0 21 

60 L0CATE 1 + 1 ,0*PRINT CHRS(2l9) 

70 L0CATE O r I=PRINT CHR* ( 2.1 9 > : LOCATE 23,lsPRINT 
CHRS < 219 ) 

80 IF RNO < i ) < . 5 THEN J= INT ( RND < 1 > *20+ 1 > : LOCATE 
I,JsPRINT CHRK215) * T Cl , J ) =1 
90 S*INT(RND(i >*14+i) 
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í 00 Z( INT ( 1/3 )+i )~S + 5 

liO LOCATE I+l r 2iíPRINT CHRS<219> 

120 NEXT I 

130 K = INT ( RND ( 1 )*18+i ) 

140 P=0 

150 FOR I«1 TO 4 
160 P=P+Z(I> 

170 IF Z( I ) =0 THEN GOTO 240 
180 LOCATE Z< I>4) r Z< I ) SPRINT " " 

190 Z( I )=Z< I )-SGN(Z< I )~S> 

200 Z<I + 4)=Z( 1 + 4) -SGN <Z(I + 4)~K> 

210 IF T<Z<I+4>,Z<I> >«i THEN Z<I>=QsGOTO 230 
220 LOCATE Z < 1+4 > r Z < I > : PR INT "G" 

230 IF Z<I)=S AND Z ( 1 + 4 ) =K THEN PRINT PERDEU — "s 

PLAY"CDCFEDCBA" : END 
240 NEXT I 

250 IF P=0 THEN PR INT'BR AVOS ! ! " í PLAY"CEGCDEFGAB " : END 
260 LOCATE K,S: PRINT"0" 

270 FOR 1=1 TO 1500 : NEXT I 
280 LOCATE K,S:PRINT " " 

290 A%=INKEY* 

295 REM — MOVIMENTE 0 JOGADOR 

300 K=K-2#( (A%=CHR1(28) )-< A%=CHR4<29> ) ) 



Cork i 
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310 IF K<=0 0R K>«23 THEN PRINT"LASTIMO. - 
play ,, c;decdf"sen[> 

320 S=S-2*( (AS^CHRSOl > ) - < AÍ=CHR% C 30 ) ) > 
330 IF S<=0 0R S>=21 THEN K=*25sG0T0 310 
340 GOTO 140 



CAPÍTULO 





Referências 

Nível de compreensão do programa pelo usuário: FÁCIL 
Tipo de jogo: LÓGICA. 

Dificuldade do jogo: FÁCIL 

O jogo 

Ao iniciai o jogo, introduza uma aposta; os resultados são obtidos ao se digitar “1” (um). 
Em cada tirada vocé obterá um total, que aumentará pouco a pouco, chegando ao máximo possível 
do número 21 (VINTE E UM). 

Não passe de 21! Quando desejar parar, digite “0" (zero); então o MSX começará a jogar 
tentando superá-lo chegando o mais próximo possível de 2 1 . 


Fita K-7 

Paru armazenar: depois de digitar o programa, salve-o em fita com o comando: 
CSAV6"J21"* J 

Para recuperar: para ler o programa da fita. digite: 

CLOAD J21" «J 
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Vintt e um 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 


SAVE"J21 BAS” «-! 

Para recuperar: para ler o programa do disquete, digite: 
l_OAO"J21 BAS" +J 


Como jogar 

Digite RUNe «J ou pressione a tecla FS. 

Para a pergunta inicial: 

"Quantia Inicial?” 

digite a quantia inicial que você tiver em caixa e pressione ^ (return). Feito isto, pressione a 
tecla “1 ” (um) para jogar e obter o resultado. 

Como resultado surgirá a mensagem; 

VOCÊ TEM ... 

mostrando a quantia que você possui. Para continuar, pressione sempre “1” (um), e quando 
decidir parar, pressione “0” (zero). O MSX começará então a jogar, realizando também a função 

de banca. 

Ao final do jogo, aquele que chegou a vinte e um (ou mais próximo) vence, visualizando-se 
0 quanto se ganhou ou perdeu. 

Para encerrar o jogo, pressione a tecla “N” ou então pressione CTRI. + STOP para inter- 
romper a qualquer momento. 

Extensões possíveis: possibilidades de vários jopdores, visualização das cartas etc. 


i0 REh — VINTE E UM 
20 SCREEN 0 lF“RND (-TIME ) 

30 FOR 1=1 TO F*20t Y=RND< 1 ) *NEXT 
AO 0=0 

50 COLOR 3,lsCLS 
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60 T=0:D%="C" 

70 INPUT"QUANTIA INICIAL", M 

80 PR INT"Pr ess i one í p/ jogar e 0 p/ parar" 

RS=INPUT$ < 1 ) !R=UAL (Rí > 

90 IF R=0 THEN GOTO 150 
100 GOSUB 1000 
110 T=T+X 

120 PR INT"SEU TOTAL E' DE:"-T 

130 GOTO 80 

140 REM — MSX JOGA 

150 COLOR 1 1 , 5 1 CLS 

160 PRINT" A BANCA JOGA!" 

170 S=OsDi="F" 

180 GOSUB 1000 
190 S»S+X 

200 PR INT" TOTAL DA BANCA!";S 
210 FOR 1 = 1 TO 999:NEXT I. 

220 IF S > T OR S > 17 THEN GOTO 250 
230 GOTO 180 

240 REN — COMPARA JOGOS 
250 COLOR 15,4s CLS 
260 PRINT"VOCE TEM*"; T 


270 PRINT 


Vinte e um 


17 


280 PRINT"A BANCA TEM:",S 
290 PRINT 

300 IF S >2i 0R < S< T AND T<*21> THEN GOTO 320 
310 M--M 

320 PR1NT"GANH0:";M 
330 PRINT 
340 G=G+M 

350 PR INT"SEU TOTAL ATUAL E':" ? G 
360 PRINT : PLAY"CGECGE" 

370 PR INT"CONT INUA? (S/N>"sR4-INPUT$(i) 

380 IF Rl="N" OR R$="n" THEN END 
390 GOTO 50 
900 REM — SORTEIO 
1000 X=INT(RND<1)*6+1> 

101ÜPLAY D% 


1020 RETURN 



CAPITULO 





Referências 

Nível de compreensdo do programa pelo usuário: FÁCIL. 
Tipo de jogo: DE AZAR. PARA VÁRIOS JOGADORES. 
Dificuldade do jogo : FÁCIL. 


O jogo 

Uma bola, representada por um asterisco (“*”) negro, se desloca em um campo de roleta 
em que se encontram as casas numeradas de 1 até 36. 

Além disso, temos trés casas especiais de roleta: a casa 00 (zero-zero), a casa P (par) e a 
casa 1 (ímpar). 


Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"ROLETA" *-• 

Para recuperar: para recuperar o programa da fita, digite : 

CLOAD-ROLETA” 
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Roleta 
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Disquete 

Para armazenar: depois de digitai o programa, salve-o cm disquete com o comando: 
SAVE"ROLETA.BAS" 

Para recuperar: paia recuperar o programa do disquete, digite : 

LOAD"ROLETA.BAS" «- 1 


Como jogar 

Digite RUN e «-* ou pressione a tecla F5. 

Uma vez que a bola esteja parada, bastará pressionar qualquer tecla (exceto a tecla N) 
para que a roleta funcione. 

Para terminar o jogo. pressione a tecla N, ou entío pressione CTRL + STOP para inter- 
romper o jogo a qualquer momento. 

Extensões possíveis: arrumar a tela para que se assemelhe a uma verdadeira roleta, simulação 
da diminuição da velocidade da bolinha, introduçío de diferentes possibilidades de apostas etc. 


10 REh — ROLETA 
20 CLSs F=RND( -TIME) 

30 FOR 1*1 TO F#20s Y=RND< i > *NEXT 
40 COLOR 8,3*KEY 0FF:CLS 
50 FOR K® i TO 4 
60 FOR I=i TO 9 
70 S=I+I 

80 PR1NT TAB (4*1-2) f <S AND K=l)+(S+i8 AND K=2>+ 
<S-1 AND K=3)+<S+i7 AND K=4)j 
90 NEXT I 

100 FRINT SPRINT SPRINT 
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110 NEXT K 

120 LOCATE 0,2:PRINT "P":L0CATE 0,6:PRINT "00": 
LOCATE 0, lOiPRINT "I" 

130 FOR K = i TO 4 
140 FOR I =* i TO 10 

150 IF 1 = 10 AND K < 4 THEN LOCATE 0,4*K-i:G0T0 170 
160 IF K# I < >40 THEN LOCATE 4#I-l r 4»K-3 ELSE GOTO 200 
170 X=X-i :PLAY"L32A":PRINT "w", 

180 FOR J=i TO 250 s NEXT J 

190 IF X< > 1 THEN LOCATE POS ( 0 > - 1 , CSRLIN : PR INT " " 
ELSE GOTO 240 
200 NEXT I 
210 NEXT K 

220 X* INT ( RND < 1 )*38> 

230 GOTO 120 

240 PL A Y"C EGCEGF" í LOCATE 0,20:PRINT "OUTRA PARTIDA? 
<S/N>s". :Rí=INPUT4<1) .-PRINT R* 

250 IF Rl="N" OR R4="n" THEN END 
260 GOTO 40 



Referências 

Nível de compreensão do programa pelo usuário: MEDIANO. 

Tipo de jogo: LÓGICA 
Dificuldade do jogo: DIFÍCIL 

0 jogo 

Numa casa com 10 janelas, numeradas de 0 até 9, vocé deve ligar um dos interruptores, 
também numerados dc 0 até 9. 

Em princípio, a janela correspondente ao interruptor deverá apagar ... mas pode acontecer 
que outra se acenda ou apague. Seu objetivo é apagar as dez janelas com o menor número possível 
dc tentativas. 

Fita K-7 

Para armazenar : depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"LOUCO" «- 1 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD-LOUCO" <-* 

21 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"LOUCO.BAS" «-I 

Para recuperar: para recuperar o programa do disquete, digite: 

LOAD" LO UCO. BAS‘ ' .J 


Como jogar 

Digite RUNe +-* ou pressione a tecla FS. 

Visualiza-se então todas as janelas acesas e a pergunta: 

"INTERRUPTOR NÚMERO:" 

Vocé deve escolher um número entre 0 até 9, pressionando o número correspondente e 
observar o resultado obtido: as janelas apagam ou acendem cm lugares loucos! 

Vá em frente, até apagar todas as janelas, quando entáo será mostrado o número de tentativas 
que você realizou para conseguir terminar sua tarefa. 

Para interromper o jogo a qualquer momento, pressione CTRL + STOP. 

Extensões possíveis: melhorar a parte gráfica com um desenho mais real de uma casa. 
dois jogadores, mais janelas etc. 


10 REM — 0 ELETRICISTA LOUCO 
20 CLS:F=RNÜ(-TIHE> 

30 FOR 1*1 TO F*20s Y=RND< í ) *NEXT 

40 

50 DIM A<10> 

60 SCREEN 0 s COLOR 5 , 1 4 s CLS * K EY OFF 
70 FOR 1=1 TO 7 

80 LOCATE 0 r I s FOR J=1 TO 37:PRINT CHR$tcíl9> ; 5NEXT J 


O eletricista louco 
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90 NEXT I 
i00 T=0 

liO FOR 1 = 1 TO 10 
120 T=T+A<I> 

130 LOCATE 2«I + 5,3:PRINT CHRS<2.t9) 

140 IF A < I ) ”0 THEN LOCATE 2** 1+5 r 3 * PR 1 NT 
150 LOCATE 2*I+4,6«PRINT I" 1 
160 NEXT I 

170 IF T-10 THEN 3lQ 

100 LOCATE 0,Í4:PLAY"L64N70-:PRINT "INTERRUPTOR 
NUMERO»", »N%*INPUTÍ<i>»PRINT N% sN-VAL < N* > 

190 N=N+ 1 
200 M=M+1 

210 IF A<I)=i THEN GOTO 290 
220 A(N)=1 

230 R=TAN (RNO< í > +N/RNO< 1 ) -N > -S1N ( RND< l>/N>+336* 
SIN < 8*N ) 

240 N*INT< 10*<R--INT<R ) ) ) 

250 IF N-0 THEN N=INT<RND(i>*iO+i> 

260 IF A(N) ia! i THEN GOTO 290 
270 A(N)“i 
280 GOTO 100 
290 A(N)«0 
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300 GOTO 230 

310 PRINT SPRINT "ENCONTROU EM a " 
320 PLAY"CDEFGABAB" 


PARTE 



JOGOS PROFISSIONAIS 






CAPITULO 

7 


FROGGER 


Referências 

Níwl de compreensão do programa pelo usuário: MÉDIO. 
Tipo de jogo: DESTREZA. 

Dificuldade do jogo: FÁCIL. 


O jogo 

Já diz o velho ditado popular: sapo não sabe atravessai rua! Quem não conhece este jogo. 
onde entra em cena a habilidade de atravessar com uma razão duas avenidas da cidade repletas 

de canos? 


Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 
CSAVE-FROGGER"^ 

Para recuperar: para recuperar o programa da fita. digite: 

CLOAD' ‘FROGGER" 
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Disquete 

Para armazenar, depois de digitar o programa, salve-o cm disquete com o comando: 
SAVE 'FROGGER.BAS~ «-> 

Para recuperar: para recuperar o programa do disquete, digite: 
LOAD"FROGGEH.BAS" 


Corno jogar 

Digite RUN e «-* ou pressione a tecla F5. 
O primeiro pedido do jogo é : 

'Teclado ou Joystick IT/JI7" 


Pressionando se T, o jogo transcorrerá com o teclado, utilizando-se as teclas de movtmen- 
taçáo de cursor («-, -*>, t, I); caso contrário, pressionando-se J utilizaremos o JOYSTICK. 

Após pressionar a opção desejada, o jogo inicia. Temos duas avenidas de transito intenso 
que a rí, situada no rodapé da tela, deve atravessar sem ser atropelada. 

Para guiá-la. pressione a tecla de movimentação de cursor com a correspondente seta 
indicativa dc sentido. Por exemplo, para a frente é (t) e para a direita é (-*•). 

Você possui cinco vidas; perderá uma toda vez que colidir com algum veiculo, mesmo na 
pista superior (ao contrário dos jogos de FROCXiER convencionais). 

Após o término de todas as vidas é mostrado um placar contendo a classificação dos nove 
melhores jogadores, juntamente com a pergunta: 

"Outra partida (S/NÍ7" 

Se deseja continuar jogando, pressione S (Sim) ou N (de NSo) caso deseje encerrar o jogo. 
Para interromper o jogo a qualquer momento, pressione CTRL + STOP. 


iO REM — — Frogger 
20 REh 

30 CLEAR2000 sKEYOF F 
40 0PEN"gr p : "FOR OUTPUT AS Rí 


50 0NST0PG0SUB1910 
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60 STOPON 
70 G0SUB1500 

80 L0CATE3, 12 * PR INT"Tec 1 ado ou Joyatick <T/J) ? "p 
90 PLAY' / 8iM5000T200L1003GGIIA04FR5FGGNAFGAR 15EGR 15EGR 15 
FR503GGMA04FR 1503A04FR 1503A04FR50304FR504DC03B04DFAR 12 
GEDGR503GGMA03A04FR 1503A04FR5FGGHEFGAR 15EGR 15FR504FGG* 
AFGAR 15FGR 15AFGAR 15EGR 15F 
100 V%=INPUTS<1) 

110 IFV4* // T ,/ 0R04 a » // t "THENV“0 » GOTOi 40 
120 IFV%»"J , 0RVS= // J' / THENV=*1 *G0T0140 
130 G0T0100 
140 COLORIS, 1,1 
150 SCREEN2 , 2 

1 60 DATAO , 0 , 7 , 1 27 , 255 , 255 , 255 , 255 , 255 , 255 , 255 ,255,127, 

7.0. 0.0.0.255.255.255.255.255.255.255.255.255.255.255, 

255.0. 0 

170 DATAO , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 25 

5.255.0. 0.0.0.224.254.255.255.255.255.255.255.255.255, 

254.224.0. 0 

180 DAT AO, 0,0, 0,31, 61, 61, 61, 61 ,61,61,31,0,0,0,0,0,0,0, 

0 , 254 , 238 , 238 , 238 , 238 , 238 , 238 , 254 , 0 , 0 , 0 , 0 

190 DATAO, 0,0, 0,127, 119, 119, 119, 119, 119, 119, 127, 0,0,0, 

0,0,0,0,0,248,188,188,188,188,188,188,248,0,0,0,0 
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200 DATA163,69, 167, 19, 13 r 7, 15,15,15, 31,39,67 ,64,40, lo, 
40, 197, ió2 r 229, 200 r 240 ,224 ,240,240, 240, 248, 226, 194,2,2 
0 , 8,20 

210 DAT AO ,0,0,0,31,61, í 25 , í 25 , 125,125,61,31,0,0,0,0,0, 

0,0,0,254,251,251,251,251,251,254,0,0,0,0 

220 DAT AO , 0 , 0 , 0 , 127 , 223 , 223 , 223 , 223 , 223 , 223 , , 127 , 0 , 0 , 0 

,0,0,0,0,0,248,188,190, 190,190,190,188,248,0,0,0,0 

230 DATAO, 24, 164, 66, 163, 7, 15, 15, 15 ,15, 7, 163, 66, 164, 24, 

0 , 5 , 2 , 5 ; 8 , 208 , 254 , 253 , '255 , 255 , 253 , 246 , 208 , 8 , 5 , 2 , 5 

240 DATA 160,64,160,16,11,127,191,255,255,191,111,11,1 

6,160,64,160,0,24,37,66,197,224,240,240,240,240,224,19 

7,66,37,24,0 

250 DATA40, 16,40,64,67,39,31, 15, 15, i5, 7, 15, 19, 167,69,1 
9,20,8,20,2, 194,228,248,240,240,240,224,240,200,229,16 
2,197 

260 SCREEN2 , 2 
270 REST0RE160 
280 FOR A=i TOiO 
290 F0RB=ÍT032 
300 READC 
310 XS=X*+C.HRKC> 

320 HEX1 


330 SPR I TÉS ( A > =Xf> 
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340 X*="" 

350 NEXT 

360 SPRITEON: INTEROALON 

370 ONINTER VAL“250G0SUB 1040 * ONSPR ITEG09UB930 

380 A<3)“88A<7)*-8*B<1 )“-8*B<5)*8 

390 C(l)=5iC<3)=8»C(5)-i0:C(7>“9 

400 1=3: J=i »K*3sL=i sM=-2*H=-3sO“-2:P E, -3 

410 Z“5:R*5:W=0 

420 LINE < 0 , 0 ) - < 255 , 16 ) , 4 , BF 

430 LÍNE(0,81 >-(255, 109> , 12, BF 

440 LINE(0, 17ó>-(255, 192> ,4,8F 

450 F0RS-1T0255 STEP20 

460 LINE S,143)”< S+5 ,143), 11 
470 LINE ( S , 160 > - ( S+5 , 160 ) , 1 1 
480 LINE ( S , 126 )- ( S+5 , 126 >,11 
490 LI NE (S, 32 >-(8+5, 32), 11 
500 LINE <S,48)-( S+5 , 48 ),11 
510 LINE <S,64>-< S+5 , 64 ) , 1 í 
520 NEXT 

530 P8ET( 45 , i ) , 4 iPRINTMi r "pont o« : 0" iPSET ( 155 , 1 > 
NTM1 ,"v idas* 5" 


4 * P R I 


540 G0SUB980 

550 A=A+I :B=B+J«C=C+K :D=0+L 
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560 E»E + h*F=-F+NxG=G+0:H-H+P 
570 PUTSPRITEi, <A r i5) ,15,2 
580 PUTSPR ITE2 r ( A+85 , 15) , 8 , 4 
590 PUTSPRITE3,<A+17Q,15),8,7 
600 PUTSPRITE4,(B,32>,9,2 
610 PUTSPRITE5, ( B+85 , 32 >,6,4 
620 PUTSPR ITE6 , (B+170,32),8,7 
630 PUTSPRITE7,<C,48),10,2 
640 PUTSPRITE8,<C+85,48),i0,4 
650 PUTSPR ITE9, (C+ 170, 48), 7, 7 
660 PUTSPR ITE 10, (D, 64) ,13,2 
670 PUTSPRITEli, <D+85,Ó4) ,13,4 
680 PUTSPRITE12 r (D+l70,ò4),8,7 
690 PUT8PRITEl3,(E,i09),8 r i 
700 PUTSPRITE14, ( E+85 , 109 ) , 10, 3 
710 PUTSPRITE15,<E+i70, 109), 10,6 
720 PUTSPRITE16,<F,126),7,1 
730 PUTSPR ITE17, (F+85, 12ò) , 8 , 3 
740 PUTSPRITE18,(F+i70,i26),8,6 
750 PUTSPRITE19, < G, 143) , 5 , 1 
7 60 PUTSPR ITE20, (G+80, 143) , 13,3 
770 PUTSPR ITE21, <6+170,143) ,13,6 
780 PUTSPRITE22,(H, 160), 14,1 


Froggtr 
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7 90 PU ÍSPR I IE23 r < H+00 . lóG ) , 10 , 3 
800 PUTSPRI1E24, <H+i70,i60) r iO r 6 
810 U-ST ICk < U ) 

820 IFU=0THEN550 
830 X-X4A<U> 

840 Y»Y«8(U> 

850 R»C«.U) 

860 IFR=ÜTHENR=5 

870 IF Y > i 75THEN Y» 4 75 

880 1FY < -ITHENGOSUB 1060 sGOSUB 980 

890 IFX<10THFNX-1Ú 

900 IFX>230THENX»230 

910 PUTSPRITEO, <X,Y),3 r R 

920 DCT0550 

930 SPRITEOFF 

940 S0UND6 31 * S0UND7 r 7 1 S0UN08 r ló * S0UND9 r j. 6 i SOUND i 0 , 16 : 

SOUND 12,40: SOUND 13,1 

950 LI NE i 201 , 1 > - ( 220 ,7),4,BF 

960 Z-Z-i 

970 PSET(199 r l),4iPRINT«i,Z 
980 X=í2ü*Y=175*R=5 
990 PUTSPRITEO, <X,Y > ,3,R 
1000 IFST1CK i V)THENiOOO 
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iOiO IFZ=0THENP=U s INTEP'MLOFF s RETURN1 i 50 
1020 SPRITEON 
1030 RETURN 

1040 A=>AM0D256?B»Bh0D25òsOCh0D256*E®EM0D236*F=FM0D256 

:Q=GM0D25óíH»HH0D256 

1050 RETURN 

1060 <5=í 

1070 W*W+$*iQ 

1080 LI NE (98,1)- (115,7), 4, BF 
1090 PSETÍ96, 1 .» ,4lPPlHr«i .W 
1100 J‘*J-+Gè»L= : L+QsO=íO-& 

1110 S0UND7 , 56 
1120 PLAY"T255ABCAFD 
1130 lFSTICk < V) THENi 130 
1140 RETURN 

1150 IFP*<R'9) GOTO 1 3e>0 
ilóO GOSUB i500 
1170 L0CATE3 r 5 

1180 IFP >5THENPRINT"Parabern* pela sua 

pontuacao ! "ELSEPRINT' seu placar sera memorizado. 
1190 L0CATE3 ,8,1 
1200 F0RA=1 T 050 


1210 A$- 1 Nk ET % 




frvggtr 
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1220 NEXT 

1230 LINEINPUT"Eecreva «e»J nome* »A$ 

1240 F0RA=iT0LEN<A%> 

12S0 IFHH>*<Af,A.l>-'C«THENA*-LEFT*<AS,A-l>-rt«DS<AÍ,A.- 
1 ) 

1260 NEXT 

1270 F0RA=1T09 

1280 1FP >R < A)60T01300 

1290 NEXT 

1300 F0RB“9T0A+lSTEP-i 
1310 R(B>=R(B-Í) 

1320 Ri<B >=R*< B-l) 

1330 NEXT 

1340 R < A)=P 

1350 R»*:A)«At 

1360 GOSUB i 500 

1370 L0CATE3 r 5,0 

1380 PRINT" Pontuacao Maxim» * 

1390 FOR A=1T09 
1400 L0CATE3 , A+6 

1410 PRINTLEFTf <RS'. A) f 11 > » TA8< 30)?R<A> 

1420 NEXT 
1430 L0CATE3 ,17 
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i 440 PR INT"0UTRA PARTIDA <S/N'? 

1450 A*=INKErl 

1460 IFAS>»"N'0RAS = "n"THENST0P 

1470 IFAS< >"8"ANDA*< >"s ANDSTICK < i >»0G0T0145Ü 

1480 P=ü:U-P 

1490 00T0140 

1500 DEF I.NTA-Z 

1510 SCREEN0,0 

1520 LOCATE , ,0 

1530 COLOR 15 r 4 

1540 REST0RE1600 

1550 F0RA-3584T03799STEP2 

1560 READB 

1570 OPOKEA , B 

1500 UPOKEA+1 , 0 

1590 NEXT 

1 600 DATA20 ,84,84,84,04,84,84,84,84,84,20,0 
1610 DATA84 ,84,84,20,20,0,20,20,84,84,84,0 
1620 DATAO, 64, 64, 64, 64, 0,64, 64, 64, 64, 0,0 
1630 DATA20, 84, 84 ,84, 84, 84, 84, 84, 84, 84, 84,0 
1640 DATA84, 84, 84, 20, 20, 20, 84, 84, 84, 20, 20,0 
1 650 DATAO ,64,64,64,64,64,64,64,64,64,64,0 
1660 DATA84, 84, 84, 04, 84, 84, 84, 84, 84, 84, 84,0 




1670 DATA84 ,84,84,0,84,84,84,0,84,04,84,0 
1680 DATA64, 64, 64, 0,64, 64, 64, 0,64, 64. 64,0 

1690 FOR A“3072T 03079 
1700 READB 
1710 VPOKEA , B 
1720 NEXT 

1730 DATA207, 183,75,91 ,91,75,183,207 
1740 CLS 

1750 A* = " *******«•**###*********#************" 

1760 F0RA=iT021 

1770 LOCA TEi , A 

1700 PRINT"#"SPC<34>"« 

1790 NEXT 

1800 LOCATEO , 21 s PR INT AS ; 

1810 PR INT CHRS ( 11); 

1820 PRINTAS 

1830 LOCATEO, 0 

1840 PR INT" MMhMMMMH * 

1830 PR INT" S3SSSSSS * 

1860 PRINT" XXXXXXXX * 

1870 VP0KE121 , 0 
1880 L0CATE3 ,21 


1890 PRINT" 
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Í900 RETURH 
i 9i 0 STOP 

í 920 DATA28, iO f 28 f 40 ,43, 27, lF y F,F f F r 7 r F,i3 r A7., 45,13,14 
r 8,i4 r 2 f C2,E4 r F8,F0 r F0 r F0 r E0,F0,C8 r E5,A2 r C5 




CAPITULO 



Referências 

Nível de compreensão do programa pelo usuário: MEDIANO. 

Tipo de jogo: LÓGICA e AGILIDADE. 

Dificuldade do jogo : MÉDIA. 

O jogo 

No meio de tubarões famintos nadam serpentes, arraias e monstros submarinos, todos espe- 
rando que 0 mergulhador, controlado por vocé, caia em suas mandíbulas. Você deve nadar entre 
eles, apanhar a cápsula de oxigínio e retornar ao submarino para salvar a tripulação, caso 

contrário ... 

Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 

CSAVE-TUBARA" +> 

Para recuperar : para recuperar o programa da fita, digite: 

CLOAD TUBARA" «-• 
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Disquete 

Para armazenar- depois de digitar o programa, salve -o em dtsquetc com o comando: 

SAVE"TUBARA *J BAS ' 


Para recuperar: para recuperar o programa do disquete digite: 


LOAD"TUBARA *J BAS' 


Como jogar 


Digite RUN e ou pressione a tecla F5. 

Para iniciar o jogo, pressione a tecla de espaço (ou o botão de disparo do JOYSTICK) 
conforme o programa pede em sua tela iniciai. 

Feito isto, o jogo começa com a entrada do submarino com o homem em seu interior, ao 
mesmo tempo que os tubarões nadam abaixo deste, esperando por sua presa. Você deve escolher 

°A "í^^ Cnt0 paía TTlergUlhari C entíu l»«*íonar a tecla de espaço (ou o botío de disparo 
do JOYSTICK) para sair de dentro do submarino. 

Após a saída do submarino e estando dentro d'água, aparece a cápsula de oxigênio, em dirc- 
çío da qual vocc deve fazer o mergulhador nadar 

Para controlar os movimentos de natação, utilize as teclas de movimentação dc cursor 
K - . t, l) ou entlo o JOYSTICK. 

Tendo apanhado a cápsula, o submarino surge em baixo, e para lá deve se dirigir o mergu- 
JOYSTICK) entII,r Cm MU ÍmCrÍOr ’ preSSÍ ° ne 3 lecla de fs P a V'° (ou o botão de disparo do 

Existe também um tempo em que o homem submarino consegue ficar dentro d’água 

(estabelecido no placar e em contagem regressiva), ao fim do qual perde-se uma vida de um total 
de tres. 


O mergulhador ainda possui um recurso que só deve ser usado cm caso de emergência- 
ele pode imobilizar um tubarão (ou monstro), com um raio verde. Isso ocorre quando c pressio 

nada a tecla dc espaço (ou botão de disparo do JOYSTICK). Mas cuidado: só é possível o disparo 
de um unico raio verde. F 


O» pontos ganhos são função do tempo restante registrado no placar, isto é, quanto 
niTplacar ^ ** * C ° nseguil ,cm,,nar 5ua m.ssão submarina, mais pontos conseguirá 

Ao fim das três vidas, surge a mensagem: 


"Outra partida (S/N)?" 


Pressionando S (de Sim), inicia-se outra partida, e em caso de N (de Não) o jogo finaliza. 
Para interromper o jogo a qualquer momento, pressione CTRL + STOP. 



Tubarão! 
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tO REM — Tubarao 
20 REH 

30 CLEAR 1000* SCPEEH2 , 2 , 0 «COLOR 15 , 1 , 7 *KE'r OFF »CLS 

40 ONSPR I TEGOSUB 1 480 : DEFSNGC * DEF INTD-Z * DIMV < 10 > r U ( 10 ) , 

X<4) r Y(4),Z<4) 

50 I*RND< -TIME ) * OPEN^jrp * "FOR OUTPUT ASM 1 
60 P8ET < 8 r 0 > , 1 iPRINT**l,">pl»car" 

70 PSET<88,0) , 1 «PR INTM1 , "pt s" 

80 PSET<136,0> r l«PRINTHl, "tempo"» 

90 PR1NTR1 hom. nlv." 

100 FOR 1*01022 *8%="" 

110 F0RJ-0T031 iREADAS 

120 B4*B%+CHR4( OAL ( "&b"+A% ) ) 

130 NEXT sSPPI TES< I >-B*«NEXT«G0T0660 
140 REH 

1 50 DAT A03 , 07 , Ob r 1 b , 2b , 6b , ab r ab r ab , ab , 6b , 2b , ib , Ob , 07 r 0 
3 

160 OATAf f , cO , 80 , 00 , 00 ,00.00,00, 00 r 00 . 00 , 00 , 00 , 80, cO , f 
f 

170 DATAf f ,03,01 ,00 ,00 ,00 ,00, 00, 00 ,00,00 r 00, 00, 01 ,03 r f 
f 

180 DATrt80,80,cl,a3,bd,af ,ad,af ,af ,ad,af ,bd ,»3,ci,80,8 


0 
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190 REM Homenzinho 

200 DATA07,0f ,0d ,0f ,0f ,07, 0f r lf , 3d,óc, cd r 8f ,07,00,06,0 

e 

210 DATAeO , fO,bO,fO,fO,eO,fO,fB,bc,3ó,b3,fl,eO, 60 ,60,7 
0 

220 DATA07 , Of r Od , Of , Oe r 87 r cf r 7f , 3d , Oc , Od , Of r 07 , 06 , Oc , 3 
8 

230 DATAc0,f0,b0,f0,70,ei,f 3, f e,bc , 30,b0, f 0, eO, 60,30, 1 

c 

240 DATA0c,06,03,0i,8f ,ff ,f 8,id,id,f 8, ff ,8f ,01,03,06,0 
c 

250 DATAOO , 00 , 00 , 80, de, ff, fb, ff, ff, fb, ff, de, 80, 00 ,00,0 
0 

260 DATAOO r 00 , 81 , 8 1 , c f , 7f , 38 , i d , 1 d , 38 , 7f , c f , 8 1 , 8 1 , 00 , 0 
0 

270 DAT A60,c0, 80,80, de ,ff ,fb,ef,ef,fb,de,80,80,c0,60 
280 DAT AOe , 06,06,07 ,8f ,cd , 6c , 3d , lf ,0f ,07,07 ,0f ,0f , Od ,0 
f ,07 

290 DATA70 , 60 , 60 , eO ,fl,b3,3ó,bc,f8,f0,e0,f0,f0,bü,f0,e 
0 

300 DATA38 , Oc , 06 ,07 , Of , Od ,0c , 3d ,7f ,cf , 87 , Oe ,0f ,0d ,0f , 0 

7 

310 DATAlc,30,60,e0 7 f0,b0 r 30 r bc,fe,f3 r ei,70,f0,b0,f0,e 




Tu bário' 
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0 

320 DAT AOO , 00 , 00 , 01 ,7b , f f ,df ,f f , f f ,df , f f ,7b ,04 ,00,00,0 
0 

330 DATA30 , 60 , cO , 80 , f i ,ff,i«,b8,bB,if,ff, , fl,80 r c0,60,3 
0 

340 DATAÚo. 03,01 ,01 ,7b ,ff ,df , f 7 , f 7 , df , f f , 7b , 01 ,04 , 03 , 0 
6 

350 DAT AOO , 00 , 8 1 , 81 , f 3, f « , 4 c , b8 ,b8, ic , f « , f 3 ,81 , 81 , 00 , 0 
0 

360 REh Cabeça 

370 DAT AOO ,00, 00, 00, 07, 3f ,7«,fc,ff ,7f , if ,f f , 7f , 3f ,0f ,0 

0 

380 DATAOf ,if ,3f ,ff ,ff ,ff ,4f ,ed , f 6, f 6,ed ,f f ,ff ,0 

0 

390 DAT AOO, 00, 00, 07, 3f ,ff ,fe,3f , Of , 03 ,01 , 03 , f f , f ♦ ,3+ ,0 

7 

400 DATAif ,3f ,ff ,4f , 4f ,ff ,ff ,ff , f d , e*r , f 6, f 3, «f ,f 

e 

410 DATAf8,f0,eO,80,8O,f0,ff ,ff,ff,bf,df,df,be,f0,80j0 
0 

420 DATA07,0f , if ,3f , 3 c , 7e , f e , f e , f c , f c , f e ,-f f ,3f ,lf ,0f ,0 
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44 MSXJogot Para aprender e criar. Jogos profiaionais 


430 DATAf8,f8,f0,80,e0,ff,ff,ff,ff,bf,df,df,be,f0,80,0 
0 

440 DATA07 , 0f r if , 3f , 7f , f e , f c , f e , f e , f e , f f , 7f , 3f , lf p Of , 0 
7 

450 REh Lula 

460 DATA03 , Oc , iO, 20,40,80, 80,80, 63, if, 05,05 ,c 5,25, 2» , 1 

2 

470 DATAcO,30,08,04 r 92,d9,01 , 01 , C6 , 78 , 50 , 50 , 51 ,4a, 2», 2 

4 

480 DATA03 , Oc , 10 , 20 , 41 , 81 , 80 , 43, 3e , Oa , 12 , 24 , 24 , 24 , 12 , 0 
a 

490 DATAc0,30,0B,04,22,bi,0i,c2,fc,50,48,24,24,24,48,5 
0 

500 REM Serpente 

510 DAT AOO , 00 , 00 , 1 8 , 3c , 3ô , 33 , 1 9 , 1 8 , Oc , 8c , c c , d 8 , f 8 , 70 , 0 
0 


520 DATAOO , 70 , fc , ee , 7 f , 3 e , 30 , 98 , cc , óó , e> 3 , 63 , 33 , 3 o , 3 e , i 


530 DATA03,07 , 06 , 06, 63 , f 3 , db , d9 , od , ôd , cc , 86 , Oe> , 03 , 03 , 0 
1 


540 DATA80 ,cO, 60, oO , 7c , 7e , 36, bf , 9f , 8f ,c2,cO, 60, 60, eQ , c 
0 


550 DATAOf, 07 , 07 , 03 , 03 , 09 , 15 , 12 , 11 , 08 , 84 , 44 , 44 , 28 , 10,0 
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560 DATA80 ,f0,fc,fe,f7,ff,fb,fe,fe,7e,7*,7c,7c,f8,f0,e 
0 

570 DAT AO 1,00, 00, 10, 28, 24, 24, 44, 49, 8a, 15, 19 , 03 , 07 , Of , 0 
f 

580 DATAcO,fO,f8,fc,fc ,fe,fe,ff ,fb,ff ,f7,ff,fe,fc,fO,8 
0 

590 REM Polvo 

600 DATA03,07,0f ,if ,lf , if ,0f ,07,47,8f , 97 , 6d , 16 , ca , 12 , 6 

4 

610 DATAcO , eO , f 0, f 8 , 5b , 53 , f f , f « , f 0, f 1 , f 9 , bò , a8, 57 , 48 , 2 

6 

620 DA TA03 , 07 , Of , 1 f , if , 1 f , Of , 07 , 07 , Of , i f , 2d , 55 , áa , aa , 2 

a 

630 DATAc0,e0,f0,f8,5b,53,ff,fe,f8,e0,f8,b4,aa,55,55,5 
4 

640 DAT A00 ,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0 
0 

650 DATAOO, 00, 00, 00, 00, 00, 00, 00, 00, 00 ,00, 00, 00, 00, 00,0 
0 

660 PSET<64, 160), 18PRINTH1, "TECLE ESPAÇO" 

670 IF5TRIG(0)0RSTRIG( 1 > 0R3TR 1G< 2 ) THENL1NE < 32 , o4 ) - ( 223 
, 167 ) , 1 , BFELSE670 



MSX-Jogoí Para aprender e cria Jogos profissionais 
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680 DO=OiCi*0:CF*0»T=2iLINE(i76,8>-< Í9i r i5) „ 1 ,BF:PSEÍ< 
176,8) , i*PRINT#l,USING"tt# f T 

690 LINE<72,8)-<119, 15),1 ,BF:LINE< 136,8>-<Í67,15> ,1 ,BF 
:LINE<48, 112 )-< 208, 119) , i,BF*LINE< 88,80 >-<i75, 87) ,1,BF 
* LINE ( 88 , 80 > “ < 1 75 , 80 > , 1 , BF 
700 00*00+1 

710 Dl=DOMODi2i IFDi=0THEN840 

720 0ND1G0T0730, 740, 750, 760, 770,780, 790, 800, 810, 820, 83 
0 

730 F=i :E0»16*Ei = 160:G*4:H=-8«R=0:G0T085Ú 
740 F-l:E0*16iEl=i60:G=8sH38:R=0:G0T085O 
750 F=lsE0»16:El-l60íG*4sH*8JP=l «G0T0850 
760 F=1 sE0»16sEl»160*G=8:H=8tR=l «G0T0850 
770 F* 1 1 E0* 1 6 5 E 1 = 160 *G=4tH a 8sR=2* G0T0850 
780 F=1 sE0=16*Ei“i60sG»8:H=8*R=2*GCT0850 
790 F=-l :E0* 176 sE 1*32:0-4 :H=4:R=0 sOO T0850 
800 F«-i sE0=176sEi=32sG*8:H-4:R=0sG0T0850 
810 F*-i * E0= 176 * El *32 s Q=4 s H*4 s R*i SG0T0850 
820 F=-l :E0*i76:El=32*G*8sH*4sR»i SG0T0850 
830 F— 1 *E0*176sEl=32»G=4sH*4:R*2sG0T0850 
840 F=-i : E0= 176 s El*32 : G“8 * H=4 i R =2 

850 K0“< INT(RND<1 )«8) )* 16+64 i ki=< INT <RND« 1 ;*8> .»*l©+64: 


UX* ( INT ( RND ( 1 ) *56 ) > *4+ 16 : U*0»G05UB 1 6i0 
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860 M-K0+8 : N=EO * PQ*0 s P 1 =» 1 *0*1 20 s LINE <136,8>-(l67,15), i 

,8F:PSET< 136,8) ,1 :PR INTW1 , US1NG"#MM-" »0 

870 LI NE ( 224 ,8)-<247,l5),l,BF : PSET ( 224 , 8 ) , 1 t PR INTM 1 , US 

ING"HM#'|D0 

880 Q«1 !F0RI=0T0i0í0< I )*50iW< I )*=1 *NEX T 
890 IFR=2THEN930 

900 F0RI»0T04:X<I)=<INT<RND<1)*14>>*16 

910 Y< I >-< INT<RND< 1 >*15> >*16 

920 Z< I >=< INTíRND* 1 ) * 15 ) > *1 6 s NEXT * G0T0960 

930 F0RI=0T04*X< I )-(, INKRNDÍ 1>*14> >*16 

940 Y< I )*< INT<RND( 1 >*6> >*16 

950 Z( 1 >“Y< I > + ( INT<RND<i >*4> >*16+80*NEXT 

960 F0RI-224T0K0STEP-2:PUTSPRITE3, <I+8,E0> ,2,2:PUTBPRI 

TE1 , ( I ,E0> ,15,0sPUTSPRITE2, < l+ló,E0> ,15,1 :BEEP *NEXT 

970 GOSUB 1490: FOR I - 1 T0300 : NEX T : SWP.PPO , P 1 

980 IFSTRIGtO «ORSTRIG< 1 ) ORSTR IG ( 3 > THEN990ELSE970 

990 N=N+F* 16* PUTSPR ITE3, < M , N > , 2 r 2 * BEEP : PUTSPR ITE1 r < K í „ 

El+F*16>,15,0 * PUTSPR I TE2 , (Ki+16,Ei+F*16> , 15, 1 *S=0:SPRI 

TEONsLINE<UX, 103)-<UX+3, 104) ,l5,B 

1000 L0®STICK(0>IL1=STICK(1> 

1010 IFLO c OANDL 1 =0THEN1 120 

1020 ONLOGOTOi 040, 1120, 1050 , 1 120, 1 060 , 1 i20 , 1070 f 1 120 
1030 0NL1G0T01040, 1120, 1050, li 20, 1060,1120,1070,1120 



MSX-Jogos Para aprender e criar. Jogos profissionais 


1040 IFN=32THENi 120ELSEN=N-H s GOTO 1080 
1050 IFM=240THENli20ELSEh=M+HsG0T01080 
í 060 ÍFN*1Ó0THEN1 120ELSEN=N+H:G0T01080 
1070 IFM=OTHENii20ELSEh=h-H 

1080 PUTSPR ITE3, < M , N ) r 2 r L0+Li+P0+i : BEEP: 0=0-1 

1090 IFM >UX-13ANDh< UX+i ANDN > 88ANDN< iÜ4ANDU=0THENLINE ( U 

X r 103 )-<UX+3,i 04 ) , 1 r B : U=i s IFF=-17 HEN0=0+80 

1100 IFV<N\ió)«0THENli20 

iiiü Ci=C 1+0 ( N\ 16 ) sO(N\16> “O s GOSUB 1 580 

1120 GOSUB 1 490 * SWAPPO .Pis 0=0-1 

1130 LINE< 136,8 )-( 167, 15 > r i . BF : PSET ( i36 r 8) , 1 SPRINT**! r U 
SING' • 0 

lí 40 IFS= 1 THEN1 320ELSE IFO< “QTHENi 320 

1150 IFSTRIG<0)0RS TR IG( 1 ) ORSTR IG ( 3 ) THENi 1 60ELSE 1000 

1160 IFM*K 1 +8ANDN=Eí ANDU=1 THENi220ELSEIFG=OTHENlOOO 

1170 L INE (0,N+5)-<. 255 . N+6 ) , 2 r BF i BEEP 

1 Í80 FOR I = 1 TOÍOO s NEX T 

1190 W< <N+5)\16>=ü:Q=Q-i 

1200 LINE(0 r N+5)-(255,N+6),i,BF 

1210 GOTOIOOO 

1220 SPR I TEOFF * N=N+F*1 6 *C1«C 1+0*500+500 

1230 PUTSPRITE3, <M,N> r 2 , 2 » BEEP : GOSUB 1580 

1240 FOR I=KlT00STEP-2s PUTSPR ITE3 r ( I +8 , Ei +F*16 > r 2 f 2 1 PUT 
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SPRITEi , (I,Eí+F*16> , 15,0sPUTSPRITE2, (I+ió,Ei+F*16) ,í5 r 
í sBEEP SNEXT 

1250 FOR I = 1T03 a PUTSPRITEI, (240,176) ,0,22 a NEXT 

1260 FOR I“0~iT0ÜSTEP-í sCl“Ci + iO* 1 1*IM0D5 * IFII*OTHENPLA 

Y"t200o6vl0c8o7c4" 

1270 L INE < i 36 ,8)-(167,15) ,i,BF : PSET (136,8), isPRINTMi r U 

SING"###-"*I 

1280 GOSUB 1580 SNEXT 

1290 IFDi “6THENG0SUB 1620ELSE IFDi =OTHENGOSUB 1 620 
1300 FOR I-i T05000 s NEXT 
1310 G0T0700 

1320 SPRITEOFF s FOR 1=2109 

1330 PUTSPRITE3, (M,N> ,2, IsBEEP 

1340 FOR J= 1 T 0100 s NEXT s NEXT 

1350 PUTSPRITE3, (r1,N) ,2, 2 sBEEP 

Í360 FOR 1 = 1 TO i 00 s NEXT 

% 

1370 IFN=i76THEN139Q 

1380 N=N+2spUTSPRITE3, < M , N > , 2 , 6 a BEEP a GOTO! 370 
1390 FOR I = lT03000s NEXT SL INE UJX, 103 ) - ( UX+3 , 104 > ,i,B 
1400 T = T-i a IFT > = OTHENLINE (176,8)-(191 , 15) , 1 ,BF a PSET ( 17 
6,8) , i s PR INT 4*1 , USING' tttt ' * T s G0T0850 

1410 IFC0<ClTHENC0=Ci:LINE‘:8,8)-<55,15) , 1 , BF : PSET ( 8 , 8 > 
, iaPRINTttl ,USING"4«««M« ,/ yC0 
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MSX-Jogos. Para aprender e criar. Jogos profissionais 


í 420 REM 

í 430 P SET( 48 ,112) /isPRINTMi, "Outra Partida ? S/N" 

i 440 Bl=INKEY*:IFB4=""THEN1440 

1450 IFB4="s"0RBÍ="S "THEN680 

1460 IFB4="N"0RB4="n"THEN1470ELSE1440 

í 470 COLOR 15,4,7 s KEYON 8SCREEN,,i8 CLOSE s END 

í 480 S=i s RETIJRN 

i 490 F0RI=OT04s IFX< I )=OTHENX( I )»224ELSEX( I >»X<I)-G*W< I 
■>* 2 + 2 ) *2 

1500 PUTSPRITEI*2+4,<X<I>, 1*32+32), 4, PO+IO 

1510 PUTSPRITEI+2+5, <X< I) + i 6, 1*32+32) , 4 , P0+ í 2 s NEXT 

1520 IFR=0THENF0RI = iT0400«NEXTsRETLIRN 

1530 FOR I=0T03: IFY( 1 >*240THENY < I )«OELSEY ( I > =*Y< I )+G*UJ ( I 
*2+3) 

1540 PUTSPRITEI+14, Y ( I >, I *32+48 ) r I +2+7 , 1 *2+P0+ i 4 : NEXT 
1550 IFR«iTHENFORI*iT0200:NEXT sRETURN 

1 560 FOR I =0T 03 5 IFZ < 1 ) -24QTHENZ < I ) “OELSEZ (I ) «Z < I ) +G*W< I 

m 

*2+3) 

1570 PUTSPRITEI+Í9, <Z<I> ,1*32+48) , 1*2+7 , I*2+P 1+14 s NEXT 
: RETURN 

1580 IFCF-OANDCi > 19999THENT*T+i bCF=1 SLINE( 176, 8 >-<191, 
15 ) , i r BF8PLAY"ví2o6c4o6e4o6g2"sPSETC 176 , 8 >, i : PR INI #1 ,U 
SING"#tt"?T 
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1590 L I NE < 7 2 , 8 ) - < í í 9 r 1 5 ) , í , BF s PSET < 72 , 8 > , í 
1600 PRINTtti , USINO"######" )>Ci sRETURN 

íóíO FOR 1 = 11022 sPUTSPR I TE I .<240,176) , 0 , 22 » NEXT s RETURN 
1620 IFSTR IG < 0) ORSTR I0< i >0RSTRIG<3>THENLlNE<32,64)-<25 
, 175 > , i , BF s RETURNELSEÍ620 


CAPITULO 





Referências 

Nível de compreensão do programa pelo usuário: MEDIANO. 

Tipo de jogo: AGILIDADE. 

Dificuldade do jogo: FÁCIL. 

O jogo 

Vocé deve pegar todas as cruzes roxas, mas o monstro está sempre em seu encalço. Cuidado, 
nunca se choque contra um cacto, pois vocé perderá tempo e o monstro ficará mais próximo! 

Este é um jogo simples e de rápida digitação. Estude-o e aprenda um pouco mais sobre o 
MSX-BASIC. 

Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"CRUZ" «- 1 

Para recuperar: para recuperar o programa da fita, digite : 

CLOAD-CRUZ" <-* 
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Disquete 

Para armazenar : depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"CRUZ.BAS" «- 1 

Para recuperar: para recuperar o programa do disquete digite: 

LOAD'CRUZ.BAS" <-J 

Como jogar 

Digite RUNe «- 1 ou pressione a tecla F5. 

Inicialmente surge a seguinte pergunta: 

"0 - teclado ou 1 - joystick?" 

Se vocé tiver um JOYSTICK, pressione o número 1 ;em caso contrário pressione 0. 

Começa o jogo, e seu “homezinho azul” entra em campo. Vocé deve imediatamente dirigi-lo 
com as teclas de movimentação de cursor (<-, t, !■) para apanhar as cruzes roxas, evitando a 
colisão com os cactos. 

Seu objetivo é apanhar todas as cruzes. Quando vocé as apanhar (ou o monstro apanhar 
vocé), sugirão as mensagens: 

FIM DE JOGO 
MAIOR PLACAR - ?? 

SEU PLACAR = ?? 

JOGA NOVAMENTE? (S/N) 

Selecione a opção S (de Sim) ou N (de Não), conforme seu desejo. Se vocé passou de 
nível, descobrirá que o jogo fica cada vez mais difícil e rápido! 

Boa aventura! 

Í0 REM — 0 Jogo do cemitério 
20 REh 

30 SCREENÍ s COLOR i5 r 1 - i ' KEYOFF « G0SUBÓ5Q 

40 DIMXX < í 0) r Y%< Í0 > s 2-RND > -TIME ) * XX»0*YX*i 

50 CL.S s BEEP s 10/.“ iü s riE“i s FOR I “ / .=ÜT022 s MPOKE&Hí 800+ 1/.»32 T 
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MSX-Jogos. Para aprender e criar. Jogos profissionais 


240 s UPOK E&H i 80í + 1%*32 r 240 s VP OkE£H i 8ÍE+ 1 X* 32 r 240 * VP OK Uk. 
H181F+I ?.*32 , 240 : NEXT 

60 SC ! «0 : FOR IX*2T03Q « UP0kE&Hi800+IX r 240 : VPOKEAHíhCD+IX 
r 240: NEXT 
70 FOR I";=0T012 

80 RX«RND< i >*&H2B4: IFUPEEK <&Hi82C?RX> < >32THEN80 

90 VP0KE&M182C+R":, 16 

iOO NEXT 

iiO FOP I \ : =0T 039 

120 RX=RNO< i >*ÃH2B4 s IFVPEEK • ÃH1S2C+R?. .• < >32THENí20 
1 30 UP0KEAHÍ82C+RX r 24 «L0CATE2 r 23 #PR lNTHE*HOriENS PLhC 
AR «''SC ! s 
140 NEXTsHTX-40 

150 YX-i»XXX*2«F0RX%*2T0iiiVP 0 b E&H 18 0 0 f X X + ( X * 3 2 . 3 2 : 0 P 

0KE&Hi80Ü+XX+YX*32 , 8 s FORZ«OT 0100: NEXT 

160 XXX»XX«XXt i2-X%)»XX*Y%< i2-XX>»i «NEXT: 1 rX*i:XX*ii 

i 7 0 SOUNDG .. 1 00 : 80UND 1 r I DX : SOU ND 8 .. 1 6 » S0UND7 , é?:H30 : SOUi !D x 

2,4: SOUND 1 3 r 10 

180 r 

190 SOUND 1 r ID% 

200 XXX*XX : YYX» Y% * G ! *S T I Cfc • X J > a ONO ! GO 10250 ,210, 270 r 2 i 0 
,290,210,3x0,210 


210 GO TO 380 
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220 XH7.=X“. IDX > * YH7-- iX <• IDX ) 

230 F0RIX a 2T0i0* YXí. I%-1 >-*'%< I%> *XX< IX- í >*XX( IX > e IDX“1C.‘ 


%-i 


240 F0RZ a 0r0J.Ü0*NEXT SG0ÍÚ400 

250 YX»YX~i s IFYX< iTHENYX a í *6010220 

2òú G0T032Ó 

270 XX a XX + i * J.FXX ) 29THENXX“29 * G0T0220 
280 GO T 0320 

290 YX«YX+i * IFYX>2i THEMYX*2i * GO TO 220 
300 GOT 0320 

3iO XX«XX-i * iFXXs 2THENXX*2*G0T0220 

320 IFOPEEK < ÃHJ.80Q+XX+ YX*32 > =247 HENG0&UB450 

330 IFVPEEK < &Hi 800+XX+ ( X«32 ) = 2 4 THEN450 

340 IFVPEEK ( &Hi8Ü0+XX+YX*32 > a Í6T HENXX"XXX * YX a Y YX*G0T02 


20 

350 IFOPEEk < ÃHí 800+XX*YX*32 «0THEH530 
360 VP0KE&H1800+XXX+Y Y%*32 r 32 * OPOK.F&HÍ 800+XX+ í , %*32 . 8 
370 XX <í )-XX«YX< i )“YX 
380 r 

390 XMX“XX ( IDX > * YMX a íX< IDX) 

400 FOR IX»9T0i STEP- 1 « YX ( IX+ i ) »Y% < IX .* * XX C IX+ i ) «=XX < I X > * N 
EXT 

4Í0 IFOPEEk *.ÃHí8Q0+XX< IDX) + YX< IDX)*32) a 8THEN53Ü 
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MSX-Jogos. Para aprender e criar. Jogos profissionais 


420 0 P 0 K E & H :i 800+XMS+ TrtX*32 r 32 
430 VPOKE&Hí 800 + XS < 10% .» + i %< ID*..-*32.Ü 
440 GOT 0180 
450 r 

4 o Ü V P 0 k E * H 1 8 0 0 + X X X * s < X * 3 2 . 3 2 s U P 0 K E & H 1 3 0 0 + X X * Y X * 3 2 r 8 : H 

470 SC ! -SC ! +80+20 «íiE s L OC ATE i 8 r 23 * PR IN! SC ! • :S0UND9.i4:S 
0UND3 . O* F OR I%*255T0iS1 EP-9 s SOU ND 2 r IS s NEXT s S0UMD9 r 0 
480 IFHTJU >OTHEMRE TURM 

490 BEEP s ypOKEAHi 800+ 0.+ r *. * 32 , 32 : VPOKE&Hi 800+XS < I DS > + r 
S<IDX>*32,32 

500 PLA t V i 50 Th Í0Q00C2SC 41. í 6CEGA05C 4 , " TU i Oh i 000003G2R 
R 0SG4 •• /'m OÜOOR P P R 03E4" 

5ÍÜ I FP LA < 0 > THEN5 1 0 
520 ME»NE-* i a GOTO? 0 
530 7 

540 U P 0 K E * H i. 8 0 0 + X ( I D % > + "(% ( IDK >*32. 32 s VPOKE&Hi 800+XS+ T 
x* 32 , 32 

550 S0UND3 , i 3 ! S0UND9 r i 3 

560 F0RI%"0T0i0sUP0KEÂH2004.ÃHF6«F0RZ=0T0í5:S0UNDi r Z*N 
EXT : UP 0KE&H2004 r &HF í : F ORZ=OT Oi 5 s SOUND 1 r 2 « NEXT s NEXT 
570 S0UND8 , 0 ; S0UND9 , 0 : FOR I S»5T0i 3 t LOCA TE5 . 1 X « PR I N TSPC < 


í 7 > : NEXT 
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580 CLS»L0CATE9, 6 SPRINT 'FIM DE JOGO" 

590 IFSC ! >HS !T HENHS ! -SC ! 

600 L0CATE8 r 8 5 PR INT" MAIOR PLrtCAR 3 ="HS ! s L0CATE8 . iO:PRINT 
"SEU PLACAR -"SC! 

6i0 L0CATE6, i2:PR INI" JOGA NOUAnENTE (S/N) 
ó20 I%=1NPUT%( i ) s IF I9> = ''S"0R It *"a"THENCLS * GOTOSO 
630 IFI4 = "N"0R IS=' n •' T HENCOLOR i5 , 4 r 7 8 CLS : END 
640 GOT 0620 
650 ' 

660 FOR IX-0T07 : READA4 8 OPOREI'/- . UAL. < "&b"+A4 ) 8 NEXT : FOR I%“ 
64T071 sREADAi* VPOKEIX, VAL<"&b"+A4> 8 NEXT 

670 DATAOOi í 1000 
680 DATAOí 1 í 1 iOO 
690 DATAi iOiOi ÍO 
700 DA Í Ai 00 i 00 ÍO 
710 DATAliíiiiiO 
720 DATAi íiiíliO 
730 DATAíiiíiiíO 
740 DATAi Oi 01010 
750 ' 


760 DATAOOi ií 000 
770 DAT AOOOi 0000 
780 DATAOOO 10000 
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790 DAT AOi 1 i 1 iOÜ 
800 DATAíOiííOíO 

8i0 DAT AOÜÍ 1 iOOO 
820 DATAOOiOiOOQ 
830 DAT AOOiOiOOO 

840 0P0KE&H20ÜÜ . &H91 5 MP0KE&H20ÜÍ , &H4Í 

850 FOR IX=i28T0í 35 s READhI s VPOKEIX r OAL C &b"+A4> íNEXT«MP 

0KE&H20G2 , ÃHC 1 

860 DATAOOÜOÜOOO 

870 DATAOOOi iOí 0 

880 DAT AOí Oi 1010 

890 DATAOíOí 1010 

900 DAT AO 101 1 iOO 

9i0 DATAOOi i iOOO 

920 DATAOOOi 1000 

930 DATAOOOi i 000 

940 F0RI/í=i92T0í99sREADA$«VP0KEIX f .VAL< Ãb"+A§) «NEXUOP 

0KE&H2Q03 r &HDi 

950 DATAOOi 00000 

960 DAT AÜO 100000 

970 DATAi 1 i 1 1000 

980 DATAOOi 00000 


990 DATAOOiOOOiü 
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iÜOQ DAT AOO 1001 11 
ÍOÍO DATAOÜIÜOQIO 
1020 DAT AOOOÜOOí 0 

Í030 CLS SPRINT SPRINT" CEMITER 10" 

1040 L0CATE3, 10 * PR 1NT "O-TECLADO OU 1- JOYSTICK" SAt^INPU 
T%<i)8TJ=yAL(AS) :A*="" 

1050 IFT J<. 00R1 J > í THEN1040 
1060 UP0KE&H2Q1E r &HEE 
1070 RETURN 



CAPfTULO 





Referências 

Nível de compreensão do programa pelo usuário: DIFÍCIL. 

Tipo de jogo: AGILIDADE. 

Dificuldade do jogo: DE FÁCIL A MEDIANA. 

O jogo 

Você correrá em vários circuitos fechados, complicados e dentro de uma paisagem muito 
colorida (é bom ver este jogo em cores!). 

Seu objetivo é completar a volta no circuito no menor tempo possível, evitando colisões 
com o guardrail da pista. 


Fita K-7 

Para armazenar, depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"F-1" <-l 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD‘‘F-1"«-l 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"F-1.BAS" «-J 

Para recuperar: para recuperar o programa do disquete digite: 

LOAD"F-1.BAS" ^ 

Como jogar 

Digite RUN e ^ ou pressione a tecla F5. 

Quando surgir a mensagem: 

"Pressione a barra de espaço" 

pressione-a quando desejar prosseguir. A seguir surgirá a pergunta. 

"Qual o nível de dificuldade? " 

Você pode responder de 1 até 4. O número 1 corresponde à pista mais fácil e simples 
enquanto os números seguintes resultam em pistas mais difíceis, até a pista 4, que é a 
mais complexa. 

Após a seleção da pista, surge nova pergunta: 

"Quantas voltas deseja?" 

Agora você pode escolher quantas voltas serão necessárias para completar a prova (até 
5 voltas). Pressione o número correspondente a sua opção, e a corrida inicia. 

Para dirigir seu cano, utilize as teclas de movimentação de cursor “para esquerda (<-), 
que gira seu cano no sentido anti-horário, e a tecla de movimentação “para>a direita (-*), 
que gira seu cano no sentido horário. 

Após completar a prova, o programa mostra seu tempo e o recorde do melhor conedor. 
Para prosseguir, pressione a bana de espaço. Quando desejar interromper o jogo, pressione 
CTRL + STOP. 

10 REM — for mui a-i 
20 REM 


30 SCREENi 
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MSX-Jogos. Para aprtndtr t criar. Jogos profissionais 


40 CLEAR200, 6HDFFF 
50 DEFUSR=4HE000 
60 CLS 

70 L0CATE8 , 10 

80 PRINT"carregando dado»" 

90 L0CATE8 r 12 

100 PR INT"EDQ0 - E4B0" 

liO L0CATE8 r i 4 

120 PRINTend. -" 9 

130 F0RhD=4HE000T04HE4hF 

í 40 L0CATE15, 14 

150 PR INTHEXl ( AD > y 

160 READDDf. 

170 DD=OAL< "4h '+DDI ) 

1 80 POKEAD , DO 
190 NEXT 

200 Dl =PEEk < 4HF920 ) 

210 D2“PEEK ( 4HF921 ) 

220 P0KL4HE02B r Dl 
230 P0KE4HE02C , D2 
240 X~UBR < 0 ) 

250 DATAc3 r 10 , cO r 00 r 00 r 00 , 00 , 00 
260 DAT AOü , 00 , 00 , 00 , 00 r 00 , 00 T 00 
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270 DATA31 , 7f , f 3 , 21 , 00 , 00, 22 , c7 
2B0 DATAe7,2i,0c,e4,16,0Q,46,4a 
290 DATAcd , 47 ,00,23, 14,3e,08,ba 
300 DAT A20 , f 4 , 21 , bf , lb , i l , 00 , 08 
310 DA TA01 , 00 , 04 , cd , 5c , 00, 21 , 14 
320 DATAe4, ii ,80,07,01 ,23,00, cd 
330 DATA5c,00,2Í , 2f ,e4, 11, 00,0c 
340 DATAOi , 10 , 00 , cd , 5c , 00 , 2 1 , 3f 
350 DA ÍAe4 , 1 1 , 40 , Oc , 01 , 20, 00 , cd 
360 DAT A5c , 00 , 21 , 5f , e4 , i 1 , 80 , Oc: 
370 DATAOi, 20, 00, cd, 5c, 00, 21, 5f 
380 DAT Ae 4 , 1 1 , 00 , 00 , 0 1 , 40 00 , c d 
390 DATA5c,00,cd,82,e3,3e,00,ie 
400 DATAc8 , cd , 93 , 00 , 3e , 0 i , í e , Oa 
410 DATAcd ,93,00,21 ,9f,e4, ii ,b8 
420 DATAe7,0i , 06,00 , ed ,bO, 21 ,27 
430 DATAe4,ii,aa,e4,Qi,08,00,ed 
440 DATAbO , 06 , 80 , 21 , 00 , 07 , af , cd 
450 DATA4d,00,23,10,f9,2i,b6,e4 
460 DATAI 1 , b7 , e4 , 01 , f f , 02 , af , 77 
470 DATAed *bO , 06 , 17 , 3e , 8b , 2i , eO 
480 DATAe4 , 77 , 1 1 , Oa , 00 , 19 , 77 , 1 1 
490 DATA i6, 00, 19,77, 10, f 3, 21 ,fó 
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500 DATAe3,ii,39,e7,0i,04,Ü0,ed 
5i0 DATAb0,2i,fa,e3,ií ,59, e7, 01 
520 DAT A05 ,00,ed r b0,2i,ff,e3,ll 
530 DATA38,e5,0i , 07 , 00 , ed , b0 , 21 
540 DATA06,e4,li,58,e5,0i,06,00 
550 DATAed,b0,cd,24,e3,2i,c6,e3 
560 DATAii,eÜ,ü6,01,20,00,cd,5c 
570 DATAOO ,2a,c7,e7,.ii ,f8,06,cd 
580 D ATA48,e3, 21,00,00, 22 r be r e7 
590 DATA21,88,i3,22,c0,c7,3e,í4 
600 DATA32 , bb , e7 , 3e , 70 , 32 , c2 , e7 
610 DATAaf ,cd , d8 , 00 , a7 , 28 , f 9, cd 
620 DATA98 r e3,2a,c0,e7,2b,af,bc 
630 DAT A20 ,fb,af,20,f8,cd,3a,e2 
640 DAT A2a,be,e7,ii,eb,06,cd,48 
650 DATAe3,cd,a4,eí ,a7,28,e3,cd 
660 DATA82 r e3,2i r c6,e3,li,2b,05 
670 DATAOi r 08 , 00 , cd , 5c , 00 , 21 , ee 
680 DATAe3,ii,4b, 05 , 01 , 08 , 00 , cd 
690 DATASc , 00 , 3e , d 1 , 32 , aa , e4 , 3e 
700 DATAa8,32 r ae,e4,3a,c2,e7,32 
710 DATAaf ,e4, 21, aa, e4,il,00,07 
720 DATAOi ,08,00, cd ,5c ,00,2a, be 




730 DAT Ae7 ,eb,2a, 
740 DAT A30 , 04 ,ed, 
750 DATA0ó,2b ,06, 
760 DATA10 , f a , af r 
770 DATAf 0 , c 3 , 83 , 
780 DAT Aa7 r 20 r i7 r 
790 DAT A32 , 3a , c 3 , 
800 DAT A35 , 20 , 04 , 
8Í0 DATAi 8 , Oa , 32 , 
820 DATA32 r c4,e7 , 
830 DAT AOò , 04 ,18, 
840 DAT A06 r f C , 4f , 
850 DATA04 , 18 r 06 , 
860 DATAe7 r af ,cd, 
870 DAT Ac b, 20, 3a 
880 DATAe7, 32, ab 
890 DATA i i , 00 , 07 
900 DATAOO,f í r cb 
910 DA T A06 , 02 , 30 
920 DAT A2Í r 76 , e7 
930 DATA06 , af , 32 
940 DATA88, 20,0a 
950 DAT A23 , 10 , e9 


c7 , e7 r a7 , cd , 52 
53,c7,e7,2i,00 
00 , t'd , e5 , f d , eí 
bc,20 r f3,bd,20 
eO,a+',cd ,d5,00 
3a,c5,e7,a7 r 28 
e7,47,2i r c4,e7 
af ,32 r c3,e7,78 
c3,e7,47,3e,05 
78, fe, 03, 20, 04 
,06, fe, 07, 20,0b 
,3a,c5,G7,a7,28 
r af , 47 , af , 32 , c3 
, d8 , 00 , a7 , 28 , 02 
, c2 , e7 , 80 , 32 , c2 
, e4 , f 5 , 2Í , aa , e4 
,01,04, 00, cd, 5c 
,3f ,cb ,3f ,cb ,3f 
,01, 04, 16, 00, 5f 
, 19 , 7e , f e , 00 , 20 
,c5,e7, 18,09, fe 
,3e r 0i,32,c5,e7 
,af,c9,3e,0i,c9 
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960 DATAaf , c9 , 2a , be r e7 r 23 r 22 r be 
970 DATAe7 , 7d , 3c , 20 r 33 , 3e ,40,32 
980 DATAbd,e7,3a r b9,e7,c6,08 r fe 
990 DATAdO, 30 , 03 r 32 r b9, e7 , 3q r b8 
iOOO DAT Ae7,c6,08 r fe r d0 r 30 r 03,32 
iOiO DATAb8,e7,2a,c0 r e7 r 0i,14,00 
1020 DATAa7 r ed r 42,e5,0i r f0,0a,a7 
1030 DATAed r 42,ei r 38,03,22,cü,e7 
1040 DATA2i,95,e7,il r b5 r e7 r 0i f e0 
1050 DATA02 ,ed,b8,cd,3i,e3 f e6 r 0i 
1060 DATAa7,3e r 8i, 28,02, 3e, 80,06 
1070 DATA20,2i,bó,e4 r 77,23 r 10,fc 
1080 DATAcd,3i,e3 r 47,3a r b8 r e7 r b8 
1090 DATA38 r i7 f cd r 3i r e3,c6,01,a7 
1100 DATA3a, ba, e7, 06,01 ,28,02,06 
1110 DATAff ,80,fe,03,30,03,32,ba 
1120 DATAe7 r 2i,ba,e7,46,3a,bb,e7 
1130 DATA05 , 80 r f e , 02 , 38 , 09, f e , 27 
1140 DAT A30 „ 05 , 32 , b b , e7 r 1 8 r 06 , 06 
1 1 50 DATA02 , 70 , 3a , bb , e7 , cb , 3f r 32 
1160 DATAbc, e7,4f ,06,00 ,21, b6,e4 
1170 DATA09 , 3a,bd,e7,ií,b0,e3,a7 
1180 DAI A28 „ 07 „ 1 1 , bb „ &3 , 3d r 32 , bd 



i í 90 DATAe7,0i,0b,00,eb,ed,b0,cd 
1200 DATA31 ,e3, 47,3a, b9,e7,b8, 38 
i2i0 DATA23 ,cd , 3i , e3 , e6,3f ,fe r 0a 
1220 DATA30,ia,47,3a,bc,e7,80,4f 
1230 DATA06, 00, 21 ,bó, *4,09,36,90 
1240 DATA23, 36,92,11,1+' ,00,19,36 
1250 DATA9Í ,23,36,93,21 ,d6, *4, li 
1260 DAT AOO , 04 , 01 , eO , 02 , cd , 5c , 00 
1270 DAT Ac9 , e5 , d5 , ed , 5f , 16,00,5f 
1280 DATA2a,b6,e7, 19, 09, 22, b6 ,m7 
1290 DATA7d,0f ,0f ,0f ,0f ,di,ei,c9 
1300 DATAdS; 11 ,a5 r e4,0i , 10,27 ,cd 
1310 DATA72,e3,0i,e8,03,cd,72,e3 
1320 DAT AOi , 64 , 00 ,cd,72,e3, Oe , Oa 
1330 DATAcd,72,e3,7d,c6,30,i2,21 
1340 DATAa5,e4,di ,01 ,05,00, cd ,5c: 

1 350 DAT AOO , c9 , c5 , af , cd , 42 , 38 , 03 
1360 DAT A3c , 18 , f 9 , c 1 , 09 , có , 30 , 12 
1370 DATA13 , c 9 , 3e , 08 , ie , 00 , cd , 93 
1380 DAT AOO, 3*, 09, ie , 00 , cd , 93 , 00 
1390 DATA3e,Üa, le, 00, cd ,93,00, c9 
1400 DATA3e,08, ie ,0d ,cd ,93,00, c9 
1410 DAT AOO ,00,00,00,00,00, 00 , 00 
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í 420 DATA00 ,00,00,00,00,00,00,00 
i 430 DATA89 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
í 440 DAT A00 , 00 , 8a , 89 , 88 , 88 , 88 , 88 
1450 DATA88 ,88,88, 88 , 88 ,8a, 20 , 20 
1460 DATA20, 20, 53, 43, 4f ,52,45,20 
1470 DAT A20 , 30 , 30 , 30 , 30 , 30 , 20 , 20 
1480 DAT A20 ,20,48,49,2d,20, 20 , 20 
1490 DATA20 , 20 , 20 , 20 , 20 , 20 , 20 , 20 
1500 DAT A47,4í,4d, 45 , 20 ,20,20,20 
1510 DATA4f ,56,45,52,20,20,50,55 
1520 DAT A53 , 48,53, 50 ,41,43, 45 ,54 
1530 DATA 48, 45, 20, 43, 41, 52 , 20 , 20 
1540 DAT A52 ,41,43, 45 , 00 , 42 , 01 , le 
1550 DAT AO 1 , Oc , 00 ,Oi,fO,fO,fO,fO 
1560 DATAf 0 , f 0 , f 0 , f 0 r fO,fO,fO,fO 
1570 DATAfO,fO,fO,fO,3c,fO,dO,a8 
1580 DAT A70 , 00 , Of , dl, 70, 04, 08, 33 
1590 DATA33,cc,cc,33,33,cc,cc,0f 
1600 DATAOf , f 0 , f 0 , Of , Of , f 0 , f 0 ,00 
1610 DATA40 , 00 , 00 , 00 , 00 , 02 , 00 , 00 
1620 DATA20, 10,28,28, 10,20,00,00 
1630 DATA04 , 08 ,14,14, 08 , 04 , 00 , f f 
1640 DATAff ,ff ,ff ,ff ,ff ,ff r ff ,Qf 



1650 DATAQ3 , 37,3f,3f,37, 06 , Ge , 1 e 
1660 DATAlf ,07 ,77,77, 7f , 77,72, fO 
1670 DATAcO,ec ,fc ,fc ,ec ,60,70,78 
1680 DATAf 8 , «0 , ee , ee , f e , ee , 4e , 00 
1690 DATA09 ,40,11,01, 09 , 05 ,41,22 
1700 DATAI 1,19, »f ,0f,c7,3f,if, 00 
1710 DAT AOO , 04 , 80 ,10, aQ, 10, 81, 10 
1720 DATA84 ,®9,f0,có, f 0 , f e , f 8 , 50 
1730 DAT A30 , 02 , Oa , Oa , 00 , 00 , 00 , 00 
1740 DAT AOO ,00,00, 00 , 00 , 00 , 00 , 00 




CAPITULO 





Referências 

Nível de compreensão do programa pelo usuário: DIFÍCIL. 

Tipo de jogo: LÓGICA DE AZAR, 

Dificuldade do jogo: DIFÍCIL. 

O jogo 

Agora vocé está em uma mesa de POKER, com mais cinco jogadores experientes. Eles 
conversam, blefam e jogam sozinhos (se você desistir da rodada). Todo cuidado é pouco ... 

Este jogo simula, com alto grau de realidade, a movimentação de uma mesa de POKER. 
As cartas são distribuídas e as apostas se sucedem entre você e os jogadores restantes. O programa 
representa um dos mais bem elaborados jogos de POKER existentes para microcomputadores, 
jogando o “POKER completo’’ (com todas as cartas do baralho). 

Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 

CSAVE-POKEFT <-l 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD-POKER" «- 1 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"POKER.BAS" 


Para recuperar: para recuperar o programa do disquete, digite: 
LOAD"POKER.BAS" «-* 


Como jogar 

Digite RUN e -*- 1 ou pressione a tecla F5. 

A primeira pergunta que os jogadores na mesa lhe fazem é: 


Qual o seu nome? 

Você deve escrever o seu nome (até 10 letras) e, ao terminar, pressionar «J (retum). A 
pergunta seguinte é : 

Vamos jogar? (S/N) 

Para continuar jogando tecle S (Sim). 

Após “pagar a mesa” com $20, o jogo inicia. O pessoal começa a jogar, e então chega a sua 
vez. Você tém três opções: (S)egue o jogo, (A)posta e cobre o que está na mesa ou (P)ara de 
jogar. Selecione a sua opção simplesmente pressionando a letra correspondente (S, A ou P) e 
<-i (retum). Se mudar de idéia, antes de pressionar (retum), pressione a tecla BS e a letra 
da sua opção será apagada. 

Em seguida, se você quiser trocar uma ou mais cartas, siga o exemplo que aparece a seguir. 
Suponhamos que você tenha a seguinte mão: 

A 4 2 A K 

Para ficar com o par e trocar as cartas restantes, digite 235 e ^ (retum). Como você pode 
notar, as cartas são indicadas em numeração crescente, de 1 (a primeira) até 5 (a última). 

Para continuar a jogar, basta ir usando os mesmos procedimentos de resposta. Muitas 
surpresas e partidas emocionantes vão surgir, por isso aconselhamos: cautela! 

Para interromper o jogo tecle CTRL + STOP. 

10 REM — poker profissional 


20 REM 
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30 REH 

40 0NST0PG0SUB50sST0P0NsDEFUSR = í;H90«G0T070 
50 CLSsEND 
60 REM — meb 

70 X-RND(-TIME) 5P0KE64683! , i sSCREEN0:C0L0R15,2íWIDlH40 
IKEYOFF 

80 DIMD%<i3 T 4>,TX<i3>,T2X<4> r L*<í3>,L2*<4 
,NS<9> r FX<6> , AZ (6,5, 1) r L3*<6> ,0X<6,7> ,B7X 
J£<6) 

90 DEF FNR V < X3 ) ■ INT < < RND < 9 ) #X3 ) + 1 ) 

100 ZR«0:0i-i *FR»4sFV=5rSX=6:TR=i3 
110 BN»5:SN=8iRN*4iFD=>9 
120 DIhB%(BN> r S* (SN) ,R4<RN> ,FS<FD> 

130 FORX=* 1 T 06 s MX ( X ) ■ 1 000 s NEXT 
140 F0RX-1T013IREADLKX) INEXT 
150 F0RX=iT04:L2l(X)»CHR*<X+199> s NEXT 
160 F0RX*lT05lREADL3i(X) JNEXT 
170 F0RX«iT09sREADN*< X) «NEXT 
180 FORX=iTOBN:READB*<X) :NEXT 
190 FORX=iTOSNiREADS*<X> *NEXT 
200 FORX=ÍTORNsREADR*<X> INEXT 
210 FORX<= 1 TOFD t READFi < X ) sNEXT 
220 F0RX‘=1T0Í0IREADM:N=2048+M*8:F0RX1«ÍT08:READAÍ SVPOK 


>,B%<6> 

( 6 > , L4fc ( 6 ) , BL 



Poker profissional 73 


EN+Xi-i , VAL( ,/ &H // +A4) sNEXTsNEXT 

230 ST«130»MA-8T«AL«.22sFOi . í 5 s NG=6 s Wl=l 

240 Mi%*"Ma:<lmo de 41000" : M24=*"Uoce nao pode gastar o 

gue nao tem." 

250 CLS* LOCATE T 2 s PR INT"+ 

+ \ " j 

260 FOR W0=“0T0í 5 s LOCA TE 40 SPRINT"! !"> s NEXT s L0CATE4Ü : PR IN 

+"• . 

T" ! * 

270 DWN=*-99sG0SUB4030 

280 Rt^^Qual seu nome?" * P A=FN RO < 5 ) * G0SUB3670 
290 13=541 5 G0SUB34ÍG 

300 IFLEN(I*)-2THEN290ELSEL3*<SX>-I*«N6f-I*»DWH— 99«G0 

SUB 4030 :DWN=0 

3i0 60SUB3550 s G08UB 3520 s RS 3S "Sen t e-se , " + IHX«FNRV<5> *P 
A=X 3G0SUB367Ü 

320 X1=FNR0<5) t IFXÍ=XTHEN320 

330 R4="Vamos 1 a ! "iP A=Xi *G0SUB 3670 s U0=2 s G0SUB3500 = GOSU 
B3950:W0-0i 3G0SUB3500 
340 G08UB 3950 sGOSUB 3550 

350 Li^i sRl“"Esta e' uma mesa per i gosa . " s GOSUB 3830 
360 Li «2* Rí»" Boa sor t e ! " :G0SUB383Q 
370 WO-3 3 GOSUB 3500 


380 REM 
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390 I=I+0l:IFI=7THENI-01 

400 IFF%< 1 >«20R <F%< I > = 1ANDH%< I ) <50>THEN390 

410 G0SUB540 

420 G0SUB1000 

430 Ii=I iM=0í íGOSUBil 10 

440 IFE0G n 01 THEN510 

450 G0SUB1630 

460 IFFX ( SX > =ZR THENGOSUB 1090 

470 1 1» 1 1 M*2 * GOSUB 1110 

480 IFE0G=01THEN510 

490 G0SUB31 30 

500 GOSUB 3950 

510 G0T0390 

520 REM 

530 REM 

540 FORX-OlTOTRsFORXi^OiTOFR 

550 D%(X r Xi)=>ZR*NEXTXl,X 

560 MZ<ZR)=ZR:E0G=ZR:NH-ZR:RS=ZR 

570 F0RX=SXT001STEP-1 

580 B%(X)*ZR:BLX(X)«ZR 

590 IFFX ( X ) < >2THENFZ<X)=ZRíNH=NH+01 

600 IFMX(XX50ANDFX(X)< >2THENÜ0SUB 780 

610 NEXTi IFNG=0iTHEN920 
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620 G0SUB3520 : 60SUB3550 s IFF/i ( SX ) =2THEN670 
630 R%«"0amos jogar? ( S/N ) " Lí =»i s G0SUB3830 
640 I3«54i :G0SUB3410s IFI9>= / 'N"THEN4260 
650 GOSUB352C) 

660 REM 

670 G0SUB4030 6 G0SUB3550 ! R%="Sou mao. Todo mundo poe % 
20 " 

680 DWN“- 1 s F0RP A= 1 T06 s G0SUB3950 s NEXT • DUN=0 s P A= I 

690 PA=PA-i:IFPA=ZRTHENPA=6 

700 IFF% (PA ) =2THEN690 

710 G0SUB3Ó70 

720 REM 

730 A8=20*F0R 18=01 TOSX 

740 IFF% < 18 ) =ZRTHENG0SUB3880 

750 NEXTI8 

760 RETURN 

770 REM 

780 IFX< >SXTHEN840 

790 R%=L3t <SX>+", Uoce esta com caixa ba i xo. ":Li=i sGOS 
UB 3830 * R4="Voce gostaria de continuar? <S/N)":L1*2:G0S 
UB3830 

800 G0SUB3410: IFI*="N"THEN840 

810 G0SUB3520 s R%="0k , daremos para cada um ll000 /, sLl = i 
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s GOSUB 3830 

820 F0RI8=0iT0SX:lFFX(I8>< >2THENP.8=-i00Q:F%< I8)=0:G0SU 
B3880 

830 NEXT:MX<ZR>*ZR:RETURN 
840 FX(X)=2:RD=0í :NG=NG-0i :Li=2 

850 PA=X:Ri“"Eu desisto, vou para casa ! " : G0SUB3670 
860 W0=2* G0SUB350O 

870 IFMX<X) > =ZR THENR ífc=L3$ ( X ) +" sai com 4"+STRS ( MX < X ) > * 
G0SUB3830 

880 IFMX<X) <ZRTHENR4=L31<X)+" sai com divida de í" + STR 

*(ZR-MZ(X> ) «GOSUB 3830 

890 U0=3 s GOSUB 3500 « GOSUB 3520 

900 RETURN 

910 REM 

920 GOSUB 3550 « GOSUB 3520 
930 F0RX=0í TOSX 
940 IFFX ( X ) -ZRTHEN960 
950 NEXT 

960 RS="0 jogo acabou !!! "«Lí=í :G0SUB3830 
970 R4=L34(X)+" e' o campeao. Parabéns !" s Lí =2 : G0SUB383 
0 

980 W0=10« GOSUB 3500 : CLS 5 END 


990 REM 
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ÍOOO F0RXl“0iT0FVlF0RX2«IT0I+5 
ÍOÍO X=X2sIFX>6THENX=X-6 
Í020 IFFX ( X ) =2THENÍ 070 

1030 OFNRV<i3>:Ci«FNRV<4)i IFDX<C,Ci >=0iTHENi030 
1040 DX<C r Ci>»HA%<X r Xi,ZR>»C:AX<X r Xí ,01>*Cí 
1050 DWN-1 :PA-X:C=Xi : I FP A=SXTHENDUN=0 
1060 GOSUB 1980 

Í07Ü NEXTX2,X1 i G0SUB3550 e RETURN 
1080 REM 

1090 PA=SXSDWN=ZR l GOSUB 1950 s RETURN 
1100 REM 

1110 B9-ZR :G0SUB3520!G0SUB3550 
1120 IFFX(IÍ)< >ZRTHENG0T0Í 220 
1130 GOSUB 2050 

1140 C8=2R s IFDO >QTHENC8=C8+1 
1150 IFD1 > ZR THENC8=C8+ 1 
1160 IFD2 >ZRTHENC8=C8+1 

1170 UX < 1 1 , ZR ) =N9 s UX ( 1 1 r 01 ) =D0 * VX< 1 1 r 2 ) «=Di * VX ( 1 1 , 3>=D2 
íVX< 11 „FR >=D3«V%< 11 ,FV)»Ni *VX< 1 1 , SX ) =N2 : UX < 1 1 r 7 >=C8 
1180 IFNH=01THENRt“L3S( I 1 >+" pega a mesa de 4"+STRS(MX 
(ZR) > :Ll“i * GOSUB 3830 sE0G=l 5 18=1 1 * A8=>ZR-MX < ZR ) : GOSUB 388 
0JG0T01340 

1190 IFI 1=SXTHENG0SUB 1450 
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1200 IF11 < .'SXTHENG0SUB2850 
1210 IFE0G=01THEN1340 
1220 11*11+01 t IF11-7THENI1=01 
1230 IFI i < > I THENQOTOi 120 
1240 Ii«I 

1250 IFFXi II >=ZRANDB9 BX< 11 > THENONI 1 GOSUB 3000 , 3080 , 308 

0,3080,3080,1360 

1260 11*11+01 s IFIi-7THENIi»0i 

1270 IF 1 1 < > ITHEN1250 

1 280 IFF% < 1 1 ) «ZR THENMA«AL *B% < SX > + < 0 1 - AL > *MA 
1290 G2«ZR*G3«ZR 
1300 FORX=Oi TOSX 

1310 IFFX<X)=ZRTHENG2=G2+01:G3*X 
1320 NEXT 

1330 IFG2=01THENE0G=0i :G0SUB3520:R4*L3KG3>+" pesa a m 
•6» de »"+STRS<MX<ZR> ) »Ll-l »G0SUB3830: I8*G3: A8=ZR-MX<7 
R ) *G0SUB3880«W0=3:G0SUB3500 
1340 U0«2 s G0SUB3500 s RETURN 
1350 REM 

1360 G0SUB3520IRS-ZR 

1370 R%«"A aposta e' de S"+8TR*(B9> iLl»i » G0SUB3830 
1380 Rl*"Voce (Slegue ou (P > ar a?" »L 1=2 1 G0SUB3830 
1390 I3«556*G0SUB3410« I*«LEFT»< I* ,01 ) «G0SUB3520 
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1400 I F I % < >"P"ANDI%< >"8"THEN1360 

1410 iFI%= // F // THFNF%<SX)=Oi 5B%(SX)=ZR :NH=NH--0i :PA=SX:GS 

UB 271 00 

1420 IFI 9>="S"THENI 8= 1 1 5 A8-B9-BX < II) :G0SUB3880 
1430 RETURN 
1440 REM 

1450 G0SUB3520:lFB9»ZRANDI«0iTHENRS-"A mesa tem *"+STR 
Í(M%(ZR) ) :Ll=»i:G0SUB3830*R%="A mesa e’ m i nha" : P A=SX sGO 

8UB3670«I8»SX»A8-ZR-MX<ZR>«G08UB3880iE0G-01«G0T01610 

1460 IFB9«ZRTHENRS=0i#R4 sa "Quanto voce apost a?'' :Li = l «GO 
SUB 3830 s 1 3=541 : G0SUB3570 s G0SUB3520 s GOSLIB 4 130 : IFLK )9TH 

EN1610 

1470 IFLi=9THENLl=-i!GOSUB3520«B9=ZR:GOTOi460 

1480 R%=N64+", a aposta e' de % "+STR 4 <B9)sLl = l s G0SUB38 
30 s Rl-"Voce < S ) egue , (A)posta, ou <P)ara? // sLi=2sG0SUB 

3830 

1490 I 3=559 SG0SUB34 10 sZl^LEFTK I*,01 ) 

1500 G2=ZR:G3“ZR 
1510 FORX=OiTOFV 

1520 IFF%< X ) =ZRTHENG2=G2+01 s G3=X 
1530 NEXT 
1540 G0SUB3520 

1550 IFZS< >"S"ANDZ$< >"P"ANDZ%< >"A"THEN1480 
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1560 IFZS="P"ANDG2*01THENRÍ«L34(G3>+" peg* a mesa de * 
"+STRI < hX ( ZR ) ) SL1 = Í :GOSUB3830U8=G3:A8=ZR-M%(ZR) IGOSUB 
3880 sW0=2:G0SÜB3500»E0G-0lsG0T0i 610 

1570 IFZl«"P"THEN FX ( SX ) =01 : BX < SX ) «ZR : NH=NH-Oi :P A=SX l G 
0SUB3960 *GOT 01610 

1580 IFZS="S /, THENBX ( SX ) *89 * I8=SX : A8=B9 : G0SUB3880 * G0T01 
610 

1590 IFZ*="A"ANDB9>-M%<SX>THENR*-"Voce nao tem dinheir 
o suf ic i ent e"* Ll=0i : G0SUB383Ü » U0=2 : GOSUB 3500 : G0SUB3520 
s G0T01480 

1600 IFZ%= ,/ A // THENRS®01 * R l*"Com quanto voce cobre a apo 
st a?"lLl-0i «G0SUB3830: I3=540sG0SUB3570:G0SUB3520:Rl*GA 
L < I % ) «G0SUB4200I IFL1-9THENG0SUB3520:G0T01600 
1610 RETURN 
1620 REM 

1630 Ii-IsG0SUB3550sG0SUB3520 

1640 IFFX(Ii) =»ZR ANDI 1 “SXT HENQOSUB 1840 

1650 IFFX ( 1 1 )= ZR ANDI 1 < >SXTHENGOSUB 1700 

1660 Ii=Il+01sIFIi-7THENli»01 

1670 IFI 1 < > ITHEN1640 

1680 RETURN 

1690 REM 


1700 D6=ZR :F0RX-01T0FV 
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1710 IFAX< I 1 , X,Oi >=0X< I i , 4 )ORAX< I í , X , ZR ) “UXt I 1 ,01 >ORAX 
< I i r X , ZR > =UX < I i , 2 ) OR AX < I í r X r ZR ) =VX ( I í , 3 ) THENGOSUB 1780 

1720 NEXT 

1730 IFD6=0iTHENR%=" carta" 

1740 IFD6< >01THENR%=" cartas" 

1750 P A 31 1 1 : R4° s "Eu troco "+STR% <D6 ) +R$ JG0SUB3670 
1760 IFD6“0i ANDRND( 5 > < . 3THENBLX ( 1 1 > *3 
1770 RETURN 

1780 C=FNRU<TR ) íCl«FNRV<FR ) * IFDX(C,C1 )»0iTHEN1780 

1790 IFDX<C,Ci> =ZRTHENDX < C , Cl ) -01 

1800 AX< Ii r X r ZR)»ClAX<Il r X,0i)»CisD6=D6+0i 

1810 IFD6=0 (11,7) THENX-FO 

1820 RETURN 

1830 REM 

1840 G0SUB3520 : R$“"i 2345 carta para trocar 

= l SG0SUB383O 

1850 Rí 35 " A A A * A Exemplo - ) 125 <RETURN> iLi-t*G 
0SUB383Q 

1860 13=558 « G0SUB3570 ! G4- lí t G0SUB3520 
1870 F0RX=01T0LEN(G%) 

1880 L=UAL < MID9> ( G$ , X , 0 1 ) ) 

1890 IFL >FV 0RL<ZRTHEN1840 

1900 C=FNRU<TR ) sCi=FNRU(FR ) : IFDX(C,C1 )=0i THENÍ900 
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1910 IFDX<C r Cl>=ZRTHENDX<C,Ci)=Oi 
1920 AX<SX,L,ZR)=C:A5í<SX,L,0i )»Ci 
1930 NEXT 
1940 RETURN 
1950 REM 

1960 F0RC»i T05» GOSUB 1980: NEXT l RETURN 
1970 REM 

1980 YU-USR(O) 5 GOSUB 3740: Cl = 4 s IFPA >3THENC 1— 3 
1990 LOCATE , CSRLIN+C1 3 0NDWNG0T0201Ü 

2000 Ct'l>*" "+LEFTI (Lí (AX<PA,C,ZR ) )♦" " r 3):Cl(2)»" "+ 
L24 <AX(PA,C r 01) )+" ":C%<3)-RIGHT*<" "+Li < AX<P A r C r ZR ) > 
r 3) «G0T02020 

2010 Ct( 1 ) =CHRl < 204 ) -frCHRS < 205 > * C* ( 2 ) -CHR* ( 207 ) +CHR4 ( 20 
6 ) s C4 < 3 > < 1 ) 

2020 F0RWl=lT02:G0SUB3770»L0CATEP08(2)+2»C-i :PRIMTCt(U 
1> :S0UND7,49:PLAY"L64A":NEXT 
2030 RETURN 
2040 REM 

2050 F0RX=0iT0TRs TX l X ) =ZR : NEXT 
2060 F0RX=01T0FR:T2Z(X>-ZR :NEXT 

2070 N9*ZR:R=ZR!B1=ZRiB2=ZR*P1»ZRiP2=ZR«N=ZRsN1-ZR:N2= 
ZR »N3«ZR íOO=ZR :D i=ZR sD2*ZR *D3=ZR ST3-ZR 


2080 F0RX=01T0FV 
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2090 TX ( A% <Ii,X,ZR) >=TX<A%< I i r X r ZR > > +0i s T2X < A% < 1 1 , X , 01 
) >=T2X(A%< li ,X,01 ) )+0i 
2Í 00 NEXT 
2iiO F0RX«01T0FR 

2120 IFT2%(X) >RTHENR»T2Z<X) sSi=X 

2130 NEXT 

2140 F0RX1=01T09 

2150 IFT%(Xi ) “ZRTHEN2220 

2160 IFTZ<XÍ X >ZRTHENO*=ZR 

2170 FOR X=01 T OFR 

2180 IFTZ(Xi+X) >«01THEN0«V+0i 

2190 IFTZ<XÍ+XX0iTHEN22i0 

2200 NEXT 

2210 IF0=30R0=FRTHEN2230 
2220 NEXT 

2230 IFR*FVANPV-FRTHENBi = .5:B2».8!N9«01 sNl = Xi+FR sN2=Sl 

5 GOT 02830 

2240 FOR J=0í T OTR 

2250 IFTX < J > -FR THEN2270 

2260 NEXT ! G0T02300 
2270 FORJi-OiTOTR 

2280 IFT%< Ji )=0iTHEND2=Ji s B 1 = . 5 »B2“ . 7 íNÍ=> J* N9*2 : G0T028 


30 
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2290 NEXT 

2300 FOR J3=TR T001STEP- í 
23í 0 IFTXÍ J3)=0iTHEN2330 
2320 NEXT 

2330 IFR=F0THENNi=J3:N9=FR : B i = . 3 l B2= . 6 : G0T02830 
2340 FOR J4=OÍTOTR 

2350 IFT3£(J4) =3THENT3= J4 : GOT 02370 
2360 NEXT 

2370 FOR J5=TRT00Í STEP-Í 
2380 IFT:C< J5)“2THENPi = J5íG0T02400 
2390 NEXT: IFJ5=ZRTHEN2430 
2400 FOR J6-< J5-0Í ) TOOi STEP-i 
2410 IFTZ( JÓ)«2THENP2=J6:G0T0243Ü 
2420 NEXT 

2430 IFT3 >ZR ANDP 1 >ZR THENN9-3 tBi=. 45:62®=. 75:NÍ=J4: N2= J5 
: GOT 02830 

2440 IFO“FR THENN9-5 :NÍ=Xi+FR: N2»X1 : B í «= . 25 t B2*= . 5 : G0T028 
30 

2450 FORHí =*0iT0TR 

2460 IFTX<Hi)=0iTHEN2480 

2470 NEXT 

2480 IFHi >=TRTHEN2560 


2490 F0RH2=Hí+01T0TR 
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2500 IFT%<H2) -0 i THEN2520 
25Í0 NEXT 

2520 IFH2>*TRTHEN2560 
2530 FORH3=H2+OÍTOTR 
2540 IFT% < H3 ) =01 THEN256Ü 
2550 NEXT 

2560 IFT3>ZRTHENN?®6iBi“.25iB2*.25sNi*J4:Dí»HÍ »D2®H2«G 
0T0283D 

2570 IFPi >ZRANDP2>ZRTHENM9*7«Ni«Pi :N2»P2«D2»HisBl®. i5« 
B2= - í 5 5 00T0283C) 

2580 I. FR < 4 THE N 26 30 
2590 FORH4=OÍTOFR 
2600 IFT2% <H4 ) “0 í THEN2620 
2610 NEXT 

2620 IFR=FR ANDM-01 THENB i=> . i : D3=H4 : G0T02830 
2630 IFV< >30RN»2THEN2730 
2640 F0RH9=0iT0Xi-2 
2650 IFTX(H9)=0íTHEN2720 
2660 NEXT 

2670 IFXÍ >8THEN2720 
2680 F0RH9-XÍ+F0T0TR 
2690 IFT/Í ( H9 ) «01THEN2720 


2700 NEXT 
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2710 IFH9=14THENH9=P i 

2720 IF0*3ANDM-Í ANOXi < 9ANDX 1 < >01 THENB í ■ . 07 : Dí = H9 s GO Í02 
830 

2730 IFP 1 < 01 TMEN2750 

2740 N9«8tD0*=Hi sDÍ=H2sD2=H3:Bi=Pl A . 33* . 04253 : B2“S<5R < P 1 
>*.028sNl»PisG0T02830 

2750 IFV=3ANDM=0í THENB 1 == . 03 : D i-=H9 : G0T02830 
2760 FOR J3*=TRT00iSTEP-i 
2770 IFT%< J3)*=0iTHEN2790 
2780 NEXT 

2790 FOR J4= J3-01T001STEP-1 
2800 IFTX ( J4 ) ~0í THEN2820 
2810 NEXT 

2820 Bi=ZRsB2-ZR: N9=9 s Ní “ J3 5 N2* J4 * GOT 02830 
2830 RETURM 
2840 REM 

2850 IFFXdlX >ZRTHEN3060 
2860 IFM=0íTHENB7=Bi*iÜ00 
2870 IFM=2THENB7-B2*1Q00 

2880 IFM=Oí ANDB7 =ZRANDM% ( I i ) >800ANDRND ( SX > < . 05THENG0SU 
B4300 

2890 IFBL%< 11 )=01THENB7=200+FNRO< 100) 


2900 IFBLX<IÍ) -2THF.NB7-250+FNR0 ( 100 > 
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2910 IFM=0i ANQB7=ZR THENGOSUB 4240 s G0T03060 
2920 IFBL%< li >=3ANDB7=ZRTHENB7=24Ü+FNRV( íOO) 

2930 I FM=2ANDB 7=ZR ANDV/Í ( I i , 7 ) < «2ANDRND ( SX ) > .75THENB7 = 3 
60 

2940 S7=B7/F V:B8=ZR :B7%< lí ><=B7 
2950 FORX=OÍTOÍ 2 í B8-B8+RND < SX ) aNEXT 
2960 B8=< <B8-6)*S7)+B7 
2970 B8=INT ( B8 ) 

2980 IFB9 sb ZR ANDM/Í (Ii)<=ZR THENR9>="Aqu i esta % i em moed 
as"sP A=I 1 s G0SUB3670sMX< ZR >=h/í(ZR )+OÍ :BX( li >=0i :B9=0i :G 
0T03060 

2990 IFB9=ZR ANDB8 >M'i ( lí) THENB8-MJÍ < I í ) 

3000 IFB9 >ZR ANDB8-S7 >=B9ANDB6>M% ( I i ) THENB8=M%< I i > 

30.10 IFB9=ZR THENR$=B1> < FNR V ( BN ) )+STR3>(B8) : P A=I í : G0SUB36 
70: B9=B8S 18=11 : A8=B8 : G0SUB3880 : B% < li > =B8 : G0T030ÓÜ 
3020 IFB8~S7>=B9THENR<&=R$<FNRV<RN> ) +STRS < B8 ) : P A=I í : GOS 
UB 3670 : B9-=B8 : 18=1 í s A 8 =B 8 1 G0SUB3880 :B/Í(IÍ)=B8* GOT 03060 
3030 IF < V/i < I í , ZR ) <=70RV%< li ,FV> > = í 0 ) AND < MA >ST ) AND ( RS=0 
í >THENS7=S7+(MA-ST > A FC 

3040 IF ( B8-S7 < =B9AND88 + S7 >B9)0R<V%(Ií r ZR>< “SX ) OR < h=Oí A 
NDB9< ÍOO)THENR%="":PA=Ii : G0SUB3670 : R9>=S4 ( F NRV < SN > ) :GOS 
UB3670 : BX < I í )=B9: 18=11 : A8=B9 : G0SUB3880 : G0T03060 
3050 IFB8-S7 < B9THENP A= I í : R % = "" : G0SUB3670 IG0SUB4240 : GOT 
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03060 

3060 B9=INT<B9) :RETURN 
3070 REM 

3080 R7*=B9-B%< lí ) :S7=B7%(Ií )/FVsB8=B7%(Ii ) 

3090 S3-537 s IF < 0% ( I i „ ZR ) < =70R0% < I i , FV ) >=*10) AND < MA > ST) AN 
D ( RS=0i ) THENS3 a S7+ < MA-ST ) A FC 

3100 IF ( BB+S3 >-B9)0R(0X<Ii r ZR)< =SX í 0R ( M-Oi ANDB 9< 100>TH 
ENP A== I í íR$=SS<FNRO<SN) ) : G0SUB3670 : B7. ( 1 1 > «=B9 s I8«1 1 :A8=R 
7 : GOSUB 3880 : G0T03Í20 

3110 IFB8+S7< B9THENP A-I 1 sR$=*"":G0SUB3670:G0SUB424Q:6QT 
03120 

3120 U0=2 : G0SUB3500 t RETURN 

3130 G0SUB3520 s G0SUB3550 : R$="A mesa e r de S"+STR* ( M/í ( Z 
R ) ) !Li = i sG0SUB3830:R%="Aba i xem suas car t as " : L 1 -2 5 GOSU 
B3830 

3140 FORX-Oí TOSX 

3150 IFFX<X>< >ZRTHEN3260 

3160 N9=0% ( X , ZR ) 

3170 Rt=NS(N9) :G0TO3230 

3180 IFN9=2ORN9-SX0RN9=8 T HENRI>=N9> ( N9 ) +" "+LS< ( X , FV ) ) 

: G0T03230 

3190 IFN9=0Í0RN9=F0THENR%=N$<N9) :G0T03230 
3200 IFN9=30RN9=7THENR<I>=N*<N9) S60T03230 
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3210 IFN9=FRTHENR%“NS<N9> :G0T03230 
3220 IFN9 as 9THENR% as N9>(N9> 

3230 P A=X 5 GOSUB 3670 
3240 IFF%(XX>ZRTHEN3260 
3250 P A=X s DWN=0 • GOSUB 1950 
3260 NEXT 

3270 A=ZR!AÍ=ZRsG-i0*W0-4! GOSUB 3500 8 GOSUB 3550 
3280 FORX-OiTOSX 

3290 I F F % < X ) > ZRORV% < X , ZR ) >GTHEN3370 

3300 IFVX < X r ZR ) < GTHENG-V% ( X r ZR ) 5 A~X s GOT 03370 

3310 IFO%(X,FO> >U%(A,FV)THENA=XsG0T03370 

3320 IFUX ( X , FU ) < 0% ( A r FU ) THEN3370 

3330 IFU/i < X , SX > >V%<A r SX)THENA®X:G0T03370 

3340 IFU% < X r SX ) < 0% ( A r SX ) THEN3370 

3350 IFV%<X,ZR >»7ANDV%<X r 3> >0% ( A , 3 ) THENA-X i G0T03370 
3360 IFU% ( X , ZR ) =8THENA í =>V% ( A , 3 ) * 1 69+UX ( A , 2 .* *13+0% < A , 1 > 

:Xl=0X(X r 3)«i69+V%<X r .2)*13+V%<X r i)sIFXi>AiTHENA=X8G0T0 

3370 

3370 NEXT 

3380 GOSUB 3520 : R S=L3S ( A > + "' pesa a mesa de S"+STR * < < Z 
R) )SLi“OÍ s G0SUB3830 s I8*A sA8“ZR-M%( ZR >s GOSUB 3880 

3390 W0=2 * GOTO 3500 


3400 REM 
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3410 PLAY"" , , "T255L64EDC" s 1 S="" s G0SUB3480 
3420 IlS*INPUTS<i)s A=ASC (Iil) 

3430 IFA=8ANDLEN < I % ) >ZR THENPR I NTCHR S < A > j : IS=MIDS<IS, i „ 
LEH(IS)-Oi) SG0T03420 
3440 IFA*TRTHEN3480 

3450 IFLEN(IS)=i0THENPRINT""j:G0T03420 
3460 IFA< 480R A >90TMEN3420 
3470 IS*IS+IiS:PRINTIiS; :G0T03420 
3480 P A=6 ! R S=>"" : 60SUB3ó70 3 RETURN 
3490 REM 

3500 FOR Wí = í T 0W0*400 s NEXTWi s RETURN 
3510 REM 

3520 RS*"" s Li = 1 s G0SUB3830 s L i =2 : G0SUB3830 5 RETURN 
3530 RETURN 
3540 REM 

3550 FOR P A= i TOÓ : RS=-"":GOSUB 3670 :NEYT: RETURN 
3560 REM 

3570 I S*"" : G0SUB3640 

3580 IiS=INPUTS( i ) : A=ASC ( I 1 S ) 

3590 IFA*8ANDLEN ( IS ) >OTHENPR INTCHRS < A > ■ : IS=MIDS < IS , i , L 
EN (IS) -Oi ) SG0T03580 
3600 IFA=TRTHEN3630 

3610 IFLEN< IS) = iOTHENPRINT""p SG0T0353O 
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3620 IF <A<480RA>57> ANDI í % < >' V F"THEN3580 

3630 IFA< >TRTHENIS=I$+IÍ$:PRINTIÍS; :G0T03580 

3640 PA=6 s R ta"" * GOSUB 3670 s RETURN 

3650 REM 

3660 REM 

3670 GOSUB 3740 c FOR Wi=-2T00: GOSUB 3770: PR INT" 
":NEXT:G0SUB3740:R4=R*+" " 

3680 W0= 12 : IFWi+UO >LEN < R t ) THENWG=LEN < R t > -Wi 
3690 IFMID4<RS, WÍ+WO, i ) < >" "THENUO=WO~i s G0T03690 
3700 GOSUB 3770 s LOCATEPOS ( 0 ) +7-W0/2 :PRINTMID%(R%,Wi r WO > 
: Ul=»Wi+WO 

37í 0 IFWi=LEN< RI ) THENGOSUB 3770 : RETURN 
3720 IFMID*(R4,Wi,i)< >" "THEN3680 
3730 Wi=Wi+i CG0T037Í0 

3740 ONP AG0T03750 , 3750 r 3750 , 3760 r 3760 , 3760 
3750 LOC ATE , 3 : RETURN 
3760 LOCATE, 17:RETURN 

3770 ONP AG0T03780, 3790 ,3800 ,3800, 3790 ,3780 

3780 LOCATEi :RETURN 

3790 LOCATEi 4: RETURN 

3800 L0CATE27 : RETURN 

3810 REM 


3820 REM 
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3830 L.0CATE2 , 9+L 1 : F0RLi=2T038 s PR I. NT" "f • NEXT 

3840 L0CATE2i-LEN(RÍ)/2:PR INTRíEj 

3850 RETURN 

3860 REh 

3870 REH 

3880 MZ( I8)=M%a8)-A8:MX(ZR)«M/í(ZR)+A8 

3890 IFFX< I8>=ZRTHENR3>*"S''+STR$(M/£(I8> ) :G0SUB3910 

3900 RETURN 

3910 P A= 18 5 G0SUB3990 : C i ® 1 s IFP A > 3THENC í =0 
3920 LOCATE ,ESRLIN+C1 

3930 GOSUB 3770 : LOCATEP OS < 0 ) + i s PR INT" "jSGQSUB 

3770 : LOCATEPOS ( 0 ) +7-LEN ( R % ) /?. s PR INTRl s P LAY"" , "T255L64C 
DEF"s RETURN 
3940 REH 

3950 FORPA = OiTOSX: GOSUB 3960 s NEXT * RETURN 

3960 IFF%(PA)==ZRANDDUN< >~í I HENRETURN 

3970 GOSUB 3740 J Cí = a 4 s IFP A >3THENC í “-3 

3980 LOCATE,CSRLIN+Ci : FOR Wi^ÜTOi : G0SUB3770 : PR I NT" 

" : NEXT t RETURN 

3990 0NPAG0T040Ü0, 4000, 4000, 4010 ,4010 ,4010 
4000 LOCATE,Q+UY:UY=ü:RETURN 
4010 L0CATE r 22:RETURN 


4020 REH 
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4030 FORPA*iTOSX«IFDWNO-99ANDFX<PA>»ZR THEH41Í0 

4040 IFFX<PA>«2THENCS< i )=" " : C4 ( 2 ) =CS < 1 > * C* 

<3)=CK i > * IFP A< 4THENVY e i 

4050 G0SUB3990: IFP A< 47 HENGOSUB 37 70* PR IN7 CS ( 1 > 

4060 FORUl-i T03:G0SUB3770«PR INTCS ' 2) ; : NEX F 
4070 IFPA>3THENG0SUB3770:PR1NTCS<3>* 

4080 IFF%<PA> *=2THEN4 1 1 0 

4090 I8=PA:A8=0«60SUB3880íG0SUB3990iCi-2sLI=2: IFPA>3TH 
ENCÍ=3:L1=23 

4100 LOCATE , L I -2 : GOSUB 3770 * LOCATEPOS 1 0 ) +7-LEN < L34 < P A ) ) 

/2iPRINTL3S<PA> ; :BEEP 

4110 NEXTPAíRETURN 

4120 REM 

4130 B9=UAL ( IS ) 

4140 IFB9 k ZR THENNH=NH-O i :F a(SX)=Oi s GOSUB 3950 :GÔT04 180 
4150 IFB9 > 1 000THENG0SUB3520 : RS“M1 S : L 1=01 : GOSUB 3830 1 W0« 
2 : GOSUB 3500 : Ll =9 l GOT 04180 

4160 IFB9 >MX < SX ) ANDB9<, > 1 THENGOSUB 3520 : R S=M2i : L 1 =0 1 1 GOS 

UB 3830 s W0=3 * GOSUB 3500 : L 1=9 : G0T04 180 

4170 I8=SXs A8-B9: GOSUB 3880: BXiSX)=B9 

4180 RETURN 

4190 REh 

4200 IFR 1+B9 > 1000THENG0SUB3520 : RS-MiS*Li"Oi : GOSUB 38 30: 
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WQ=2 : GOSUB 3500 s L i =9 s G0T04230 

4210 IFR1+B9>M%<SX) THENGOSUB 3520 : RS“M2l s L 1=01 : GOSUB 383 
0 :W0=2: GOSUB 3500 sLl =9 :G0T0423D 
4220 B9=Rl+B9sB*:<SX)«=B9s I 8=SX : A8=B 9 : GOSUB 3880 
4230 RETURN 

4240 R5-FS<FNRV(FD> ) : P A- 1 il G0SUB3ô70 : F7. < 1 1 ) =01 :B%( II ) = 
ZR *NH=NH-01 : GOSUB 3960* RETURN 
4250 REM 

4260 GOSUB 3520 : GOSUB 3550 

4270 RS-"0br igado pelo j ogo f " tLÍ-Oi s G0SUB3830 

4280 R4*"Quando quiser, estaremos agu i I ":Li=-2s G0SUB383 

0 * W0=4 = GOSUB 3500 : G0T04280 
4290 REH 

4300 X=ZR:IFRND<-TIME>< . ÍTHENX-Ol 

4310 IFX-01 IHENBLXdl >=2:VX< II , 7 ) *ZR : B7* 120+FNRU < 100) 
4320 IFX*ZR THENBLX (11) =010% (11,7) *2 * V)5£ ( 1 1 r 01 ) “AZ (11,01 
, ZR ) s UX (11,2) *AX < I 1 , 2 , ZR > «B7-120>F NRV< 100) 

4330 RETURN 

4340 DATA2,3,4,5 f 6,7 f 8 r 9,a, J,G r K,A 
4350 DATAMar 1 i , Bet o , Gal o r Mar io r Car los 

4360 DATAStraight f 1 ush r Guadr a , Fui 1 hand , Flash , Seguenc 

1 a , Tr i nca , Do i s par es , Par , Nada 

4370 DATAVou apostar S,Esta mao vale l,Vou para %,E 
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u aposto $,Vou tentar % 

4380 DATAEstou nessa, Verei essa , Ve j o , Con t e comigo, Eu 
f i co ,Certo , Sem proble- ma, Vou em frente 

4390 DATA Vou subir para 4, Aumento p/ i,jogo %, Ponho 
isso em % 

4400 DATAEstou f or a ! , Des i s t o ! , Tchau ! , Esper o a próxima! 
,Nao conte comigo!, Sem chance!, Vou para casa!, Droga de 
cartas!, Gue cartas ruins!! 

4410 DAT A20G , 0 , 20 ,70,f8,f8,20, 20 ,70 
4420 DATA20Í , 0 , 20 , 20 , 70 , f 8 , 70 , 20 , 20 
4430 DAT A202 , 0 , 20 , 20 , f 8 , a8 , 20 , 20 , 70 
4440 DATA203 ,0,0, 50 ,f8,f8,70, 20 , 20 
4450 DAT A36 , 3 , 53 , 7B , D3 , 73 , 5B , F3 , 53 
44Ó0 DATA204, 7c, 44, 54, 54, 6c ,68,74,6c 
4470 DATA205,f8,88,a8,a8,d8,58,b8,dB 
4480 DATA206 ,d8,b8,58,d8,a8,a8,88,f8 
4490 DATA207 , 6c , 74 , 68 ,6c, 54 ,54,44,7c 
4500 DA r A64 , 93 , AB , AB , AB , AB , AB , 93 , 3 



CAPITULO 
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Referências 

Nível de compreensão do programa pelo usuário: DIFÍCIL. 

Tipo de jogo: LÓGICA e AGILIDADE. 

Dificuldade do jogo: DIFÍCIL 

O jogo 

0 trem está prestes a descarrilhar, ou então uma ou outra locomotiva vai se chocar com ele! 
Se você for ágil e calmo, conseguirá salvá-lo do desastre! 

O objetivo do jogo é passar por todas as estações de passageiros, mas será necessário con- 
trolar os ramais ferroviários para colocar seu trem no trilho certo e, ao mesmo tempo, evitar 
colisões com outros trens que se deslocam pelos trilhos constantemente. 

Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 

CSAVE-TREM" <-l 

Para recuperar: para recuperar o programa da fita, digite: 

C LOA D' TREM" «J 
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Disquete 

Para armazenar, depois de digitar o programa, salve-o em disquete com o comando: 
SAVE TREM BAS ' 

Para recuperar para recuperar o programa do disquete digite: 

LOAD-TREM.BAS" «-• 


Como jogar 

Digite RUN e ou pressione a tecla F5. 

O jogo inicia com um pedido para pressionar a tecla de espaço. Ao mesmo tempo é visualizado 
o melhor placar do jogo, que neste começo possuí valor zero. 

O quadro seguinte contém as seguintes informações: 

SCORE: quantos pontos você tem até o presente momento da partida. 

TRENS: o número de trens (vidas) disponíveis. 

STAGE: nível de dificuldade. 

STATION: número de estações pelas quais você deve passar com seu trem para encerrar o nível 
atual e passar para o seguinte. 

Após uma pausa, a tela de jogo é desenhada Nela esta construída uma rede ferroviária, 
por onde estio distribuídas as estações. 

Observe o quadrado intermitente no canto esquerdo superior da tela. Ele indica o ponto 
onde queremos modificar os ramais ferroviários; porém estes pontos de mudança sáo determi- 
nados: apenas alguns vértices da ferrovia podem ser alterados. 

Por exemplo, na primeira ferrovia do jogo. experimente deslocar o quadrado duas casas 
para baixo, pressionando a tecla de movimentação do cursor (l) “para baixo" duas vezes. 

Para mudar o ramal, pressione a tecla de espaço e observe: o ramal é modificado e a locomo- 
tiva sofre um acidente, caindo num "fim de linha”. 

Seu objetivo é, utilizando as teclas de movimentação de cursor («-, t, i), manipular os 
ramais para que o trem preto passe por todas as estações. Evite também as colisões com os 
outros trens. 

Continue jogando ;o próprio jogo se explicará' 

Para interromper o jogo. pressione CTRL + STOP. 

10 REh — Trem rtstluco 


20 REM 
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30 CLEAR 800 . &.HDFFF : DEF I HTA-Z : D IHPÍ i . 18 > . iri ( 6 r 8 > r X ( i ) r Y 
<i> ,D(i) r P<íó) 

40 SC R EEH i r 2 r 0 : COLOR i 5 r i , i : W I DTH29 : K E i OFF a CLS 
50 GOSUB 1290 

60 ON INTER UAL**! 5G0SUB i 2í 0 a ONSTP I GGOSUB 880 „ 880 _ 880 

70 GOSUB 1990 

80 SCI=0:M---í aL=5:Mí=ü 

90 M=<M+i)ANDi 

ÍOO Ml=Ai + l : ÍFMi >32THEMri»i 

iíO fi2*<hi-í )\2* IRM2>i5THENM2* s í5 

i 20 GOSUB 1230 s GOSUB i í 20 

Í30 X=»i9:Y>=2i a X < 0 > = 1 3 : Y < 0 > =3 : X < í .< =28 : Y < 1 ) = í 1 
Í40 D(0 )=6:D<i)=0sPUTSPRITEi r < X < 0 > *8-4 .. Y < 0 ) * 8-4 J r 6 ,D (0 
) * IFMTHENPUTSPRITE2, <X<i)*8,Y<i)*8) r 6 r D<i) 
í 50 D=ó:PUTSPRITEO, < X*8~2 r Y *8-8 ) ,i r [) 

160 PUTSPRITE3, <28 r Í9) , 8 r 8 

170 XS=0 s YS=0 a POk E&HEGEE r 0 : POK E&HEOEF . 0 a UP 0KE&H201Q r &H 
80 

Í80 L0CATE2, 1 :PRINT""SPC<2ó> :L0C*TE2,23:PRINT""SPC<2 
4 ) SFOR I=3T022STEP 3* VPOKE&Hí 802 + 1 *32 r 32 a UP0KE&H181E+I r 3 
2 « NEXT 

Í90 LOCATEO , 3 : PR INT"" a LOCA TE 28 r 3 a PR IHT"" ■ 

200 S0UND9 ,12 a SOUNDiO f i i : S0UND7 r &H38 * P0KE&HE0A5, 0 aGOSU 
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81210* INTER0AL0N* STP IG(S)0N 
210 REM Principal 

220 XS-PEEK < «HEOEE ) : T S=PEEk < &HEOEF ) * PUTSPP 1 7 E 3 . < X6*24+ 

28,YS*24+19> ,9 

230 G0SUB260 í Z=USR 1 S > 

240 XS=PEEK < ftMEOEE > : i S-PEEk • 4HE0EF • * PUTSPR ITE3 , ( XS*24* 
28, YS*24+i9> ,8 

250 FOR I «07 OM s G0SUB590 * Z=USR < S ) * NEXT * G0T02 lO 
260 REM 

270 0=0PEEk < ,&H1800+X+Y*32 > AND31 :DX=0:DY=0 

280 0NDG0T0340 , 360,410,430, 480,500.550 

290 IFV^OORV^lOORV-iSrHENliSO 

300 IF0«47HEND=i:DX=l : D Y« 1 * 007 0570 

310 IF0=177HEND=7iDX«-5:0Y=-5:G070570 

320 IFV“247HENPA“1 :G0SUB1030 

330 DX«-1 * 1=Y-1 JG0T0570 

340 IFV=4THEND»2iDX--4»0Y“-l!X*X+l :G0T05."0 

350 0=0 S r = r-l • 0X*~ 1 :DY=-4sG0T0570 

360 IF0=00R0=40P0=10THENlx5ü 

370 IFV=Í5THEND»l iDX»-5sDr=-7í60T0570 

380 IF0=17THEND“3s DX=-7 : DY~2*G0T05?0 

390 IF0«247HENP A = 2 * GOSUB 1030 

400 DX*-8«DY“-i sX-X+1 :G07057Ü 
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410 IFi^l7THEND^4:DX=-7:DY = -4:Y = Y + UG0r0570 

420 D=2:X=X+i : DX=-4 : DY=-i : G0T057Ü 

430 IFO=OORO=i70RO«4THENi 150 

440 IFV»i0THEND®3*DX»-l *DY=-58G0T0570 

450 IFV»15THEND=5*DX»-i0:DY“=-i0*G0T0570 

460 IFV=24THENPA=í :G0SÜB1030 

470 DX=- 7:DY=-10i Y=Y+i tG0T0570 

480 IFV»4THEND*4:DX»-78DY=-7*Y»Y+i:G0T0570 

4 90 DXn=-3:DY=-8:D=6:X-X-í :G0T0570 

500 IF0-Ü0R0=150R0= 17THEN1 150 

5 1 0 IFV=4 THEND-5 : DX=-3 s DY a -5 : GO T0570 

520 IFG»10THEND«7sDX=2*DY»-9«G0T0570 

530 IFV»24THEHPh=2sG0SUB1030 

540 DX«2:DY-~8:X=X-i :G0T0570 

550 IF0«10rHEND»08DY*-ó* Y = Y-i «G0T0570 

560 D-6 8DX=-3sDY«-8íX»X-l. 

570 PUTSPR I TEO r < X*S+DX r Y *8+0 Y ) , , D : FOR I -0T0M : IFX«=X <. I )rtN 
D Y = Y ( I. ) YHENi 150EL8ENEXT 
580 RETURN 

5*0 G-VPEEk ( &HÍ 800+X < I ) +Y < I > *32 > AND31 s DX=0 : D Y-0 
600 OND < I)G0T0ó50,ó7O r 7i0 r 73O r 770,790„83O 
610 IFV“OOR V= 1 OCR 0= 1 5THEN970 


620 1F0=4THEND< I ) =í : DX-i : DY = i : G0T0850 
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630 IFV-Í7THEND< I )®7sDX»-5sDY»-5sG0T0850 
640 DX=-iiY<I)=Y(I)-í IG0T0850 

650 IFV»4THEND< I >=2*X<I >»X< I > + i :DX»-4SDY«-í «60T085Ü 

660 D( I )=0s Y( I >=Y( I )-i :DX»-i : DY=-4 : G0T0850 

670 IFD=00R0*40R‘/i»iüTHEN?70 

680 IFV»i5THEND<I > = 1 s DX*-5 s D r »-7 s G0T0850 

690 IFV*i7THEND< I >«=3s0X«-7:DY-2sG0T0850 

700 DX®~8 s DY *- i sX( I )"X< I ) + í sGOTC'850 

710 IFV-í7THEND( I ) =4 s Y < I >®Y ( I ) + i : DX=-7 : Dl «-4 : G0T0850 

720 D ( I ) =2 s X < I > “X < I ) + HDX“-4 = DY»- 1 : GOT ('850 

730 IFV=00RV=170RV=4THEN970 

740 IFO® í OTHEND < I ) =3 * DX=~í s DY=-5 : GOT 0850 

750 IFV=15THEND< I > »5 * DX=-10 8 QY»-í 0* GO T 0850 

760 DY=-iO 8 DX=-7 s Y( I )=Y( I )+l SG0T085D 

770 IFV«4 THEND <. I ) =4 s Y < I > * Y ( I ) + í s DX»-7 s D Y=-7 SG0T0850 

780 D < I ) =6 s X ( I ) =X < 1 - í s DX=-3 8 DY=- 8 s GOT 0850 

790 IFV»00RV»i50RV*i7THEN970 

800 IFV=4THEND( I ) »5 s DX=-3 s DY»-5 * G0T0850 

8i0 IFY»iGTHEND< I > =7 * DX»2 s DY=-9 *G0T0850 

820 DY» -8 : DX*2 s X ( I) =X < I > -í s GOT 0850 

830 IFV=Í0THEND< I )=OsY( I )=Y ( I )-í : DY»-6* G0T0850 

840 DX»-3sDY=-8sD( I )=6sX( I )=X(I >-í 

850 PUTSPR ITEI + Í r ( X ( I ) *8+DX , Y <, I ) *8+DY ) r r D< I ) 
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860 FOR J-OT OM : IFX=»X < J > AND V =Y <. J > THENí 150ELSENEX1 
870 RETURN 
880 REM 

890 PM=M < YS . XS ) : IFPM< 80RPM > 1 5THENRETURN 

900 STR I G ( S ) OFF s 30UND 1,5: SOUND 1 2 „ 9 : S0UND8 . i 6 : SOUNDÍ 3 , 0 

910 IFPM«8THENPC=15sG0T0950 

920 IFPM»15THENPC<*8sG0T0950 

930 IFPM<i2THENPC»PM+3sG0T095G 

940 PC*PM-3 

950 L0CATEXS*3+i , V S*3+2 : PR INTPS< tXS-MTS )M0D2 r PC ) s M < rS,X 
S)=PC 

960 SOUNDí , i s STR I6< S )0N* RETURN 
970 REM 

980 ONO ( I >G0T0850, 1000,650, 1010,850,1020 
990 D < L>-4 s Y < I >«Y ( I > + 1 : G0T085Ü 
1 000 D < I ) =6 s X ( I ) =X ( I ) - 1 « GOT 0850 
1010 D(I)»OiY( I )»Y( I)-i*G0T0850 
1020 D( I )=2:X( I )=X< I )+i SG0T0850 
1030 REM 

040 SOUNDÍ 2 , 9 : S0UND8 . 16:S0UND1 .QiSOUNDO, 100 : SOUNDí 3 . 4 
1050 SC ! =SC ! +90+MÍ * 1 0 : STRIG(S) OFF sLOC ATEIO, QsPRlNT SC! : 
LOCATEX-3, Y-i :PRINTPÍ< < X\3+Y\3 ) M0D2 . PA ) s STR IG < S ) ON 


1060 P<M2)-P(M2)-1:IFP (M2 ) < ÍTHEN1080 
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1070 RETURN 
1080 REM 

1090 STR 10 ( S ) OFF : F 0R<3=0T03ÜQQ ‘ NE.*. 1 * I NTERVALOFF l BEEP s PL 
AY 'm9000t 132s 1 Iòoc0egc8ego5v í 5c 4*c 4" . n>9000t 132sl8o3gr 
Bovi 5g4«g4" , "m90Ü0t l 32 1 8o3s c r 8c r 8vi 5c 4sc 4 

1100 1T PLAY ( 0 THEN1 1 00 
iíiO G0T090 
Ü20 REH 

1130 FOR I*=0T0o *FOR J=ÚTOB *L0CAÍEJ*3+i ,1*3+2: PR INTPtí ( 1 + 
J ) M0D2 , M < I , J) ) s NEXT : NEXT 
1140 RETURN 
1150 REH 

1 160 STR 1 6 ( S ) OFF : SOUND 1 , 5 * SOUND 12,25» S0UN08 , 1 6 

1170 FOR i=OTOi 6 * PUTSPR I TEO , < X*8-4 , Y*8-4 ) , < 1AND1>*7+1 ,1 

AND7 s SOUNDO , I*ó4AND255 : FOR J^0T040 * NE>. T » SOUNOl 3, 0 « NEXT 

1180 L=L-1 : IFL<0THEN2ló0 

1190 L0CATE2o , O sPRINTL 

1200 1NTER0AL0FF :BEEP:G0T0l30 

1210 REM Musica 

1220 2«USR 1(0)* FOR W-0T02Ü-h*20 » NEXT : RE TURN 
1230 REM 

1240 FOR I =GT020 sPUTSP PITEI. <0, 209 ) : NEXT 

1250 CL5 : LOC ATE5 , 0 : PR INT"SCORE"SC ! : L0CATF.2 1 , 0 s PR 1NT '1 P 
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ENS"L 

1260 G0SUB2210 

i 270 LOCATEIO, 7 SPRINT "STrtGE fli s LOCA TE i 0 . 9 : PR 1NT "ST A T 10 
N"P ( M2 > 

í 280 FORIU-OTOSOOQ : NEXT : RETURN 
1290 REM 

1300 REHFOF I “&H í 80T0&H70Q s UPOKEI ,OPEEK( I ÍORVPEEK < I >/2 « 
NEXT 

1310 L0CATE3 r iOlPRINT" AGUARDE 

.1320 DATA0607 if3f3fif 07070707 í f 3f 3f if 07Gó0Üe0f ef ecOf 01 

0c4f cf cccccccf cf c04 

1330 DATA0003070703377f 7f 3f 7 tf e5c0eü70303207üeüf Üf 8f 8f 
ceee782<: 07 Oeüc 00000 

1340 DATAÜÜOO í 83c 3c f f ff 7f 7f 7f 63637f f f 00000000 183c 3c f ff 
f f ef ef eócócOcScOcOÜ 

1 350 DA T A040e070f i f 3f f 7e 3773d i 908000 i 030 1 00c OeOeOc Oec: f 
efef cf eff 7af OcOBOOO 

1360 DATA203f 3f 3333333f 3f 230f Of 037 f 7f 030060e0f 8f cf cf 8e 
OeOeOeOf 8f cf cf 8e0ó0 

1370 DATA000103070e034ie7773f lf Íf0f070e04c0c0e0703a7ff 
ef efef eecc OeOeOc 000 

1 380 DATA003031 303ô367f7 f 7f f f ff 3c 3c 1 800000000 f f f ec oc 6f 
ef efef f f f 3c 3c i 80000 
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1390 DA T A0Ü0 í 030f 5ef f 7f 3f 7f 7f 370307070 iOÜOOc 08000 1 098b 
ceec7ef f cf 8 -f Qe07020 

1400 DATAf f f f cOcOcÜcQcOcOcOcOcOcQcOcOf f f f f f f f 030303030 
303030303030303ffff 

1410 F0R1«0T08:REhDA 4 5Bt= "'»F0R J=0T03i iPS-BS+CHRf • OAL«. 
"Ah"+M1DI(A5, J«2 + 1 ,2) ) ) íHEXTíSPR 1TE4( 1 >s»Bl*NEXT 
1 420 REh 

1 430 DATAoò , 255 r 66 r 06 , * 6 , 255 ,60,66,34, 255 ,34,34, 34 , 34 , 
255 ,34,66, 255 ,66,90,90,66, 255 , 6o 

1440 DA TAO, 0,4, 3, 3, 37, 24, 28, 68,95, 1 00 , io4 , 36 , 3ô , l9i , 1 o 

4.19.32. 225 .93.67.66. 255 . 66 . 224 .192.32.0. 192.0.0.0 
1450 DATAoo, 06 , 255 ,o 6 , 66 , o 3, 224, 19,0,0,0,0,0, Í 6 Ü, 200, 2 
00,28,24,37,3,3,4,0,0,186,143,18,18,146,98,63,34 

l 460 DAT AO . 0 , 0 , 3 . 0 , 4 , 3 , 7 , 66 , 255 ,66,194,186,135,4, 200 , 3 

7.253. 36 .36.37.36. 250 . 34 . 56 . 24 . 164 . 192. 192.32.0. 0 
1470 DA FA 68 , 252, 70, 73, 72, 72, 24 1,93, 0,0, 32, 192, 192, 164, 

24.56.19. 10.5. 0. 0. 0.0. 0.200.7. 252. 00.66.255.66. 66 
1480 DA TA60, 66 , 165,1 29, í 65, 153,66,60 

1 490 FOR I =&H600T0£H607 : VPOKE 1 , 0 * VPOKEI +256 , 0 » ff EXT 
1 500 RE5 FOR El 420 s FOR I “&H6Ü8T0 &Hò 9F : READA : OPOKEI . A s OPOR 
E 1 + 256 , A iNEXT sFOR 1~QT 07 : READA S0P0KE&H6CÜ+ 1 , A s 0P0KE&M7C 
0+1 ,A:NEXT 

1510 FúRI-fcH2Qí8TOÃH20lHiOPOkEI . AH15 : OPOR E 1 +4 , «Hl A s NEX 
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TSVP0KE&H20ÍB, &H1 9 : 0P0KEÃH201F , &H1? 

1520 DATACQCOCOCOCOCOCOCÜCO 
1530 DAT AC0C1C0C0C lCQCÜCiCO 
1540 DATAC0CGC0C2C2C2C0C0C0 
1550 DAT ACOCí COC2C3C2COC1CO 
1560 DATAC0C0C0C0C4C5C0C6C7 
1570 DATAC0C8C9C0CACBC0C0C0 
í 580 DATACCCDCOCECFCOCQCOCO 
1590 DAT AC0C0C0D0D1C0D2D3C0 
1600 DATAC0C0C0C2C4C5C0C6C7 
1610 DAT ACOC8C9COCACBCOC1CO 
1620 DATACCCDC0CECFC2C0C0C0 
1630 DAT ACOC 1C0D0DÍC0D2D3C0 
1640 DATAC0C1C0C0C4C5C0C6C7 
1650 DAT AC0C8C9C2CACBC0C0C0 
1660 DATACCCDCOCECF COCOC ICO 
1670 DATAC0C0C0D0D1C2D2D3C0 
1680 DATACÜCOCOC2D8C2COCOCO 
1690 DAT ACOC 1C0C0D8C0C0C ICO 
1700 K$=CHR$<3i) +STR INGt <3,29) 

1710 FOR I=OTO 1 7 s Ai 0 "" s READLSí 5 FGRLS=Í 7 0Í8ST EP2 * Al=A4+C 
HRl(0AL( // &h"+MIDf<LS5 r LS r 2) > ) *NEXTsBi=""iCS=""*FOR J*OT 
02:B*=Bí+MIB%( A* r J*3+í r 3 > +K4 a NEXT * P 4 < 0 r I >«=LEF7 4 ( B4 r 17 ) 
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Í72Ü FOR J“iT09*Ci ss CS+CHR*<ASC<MID4 < At, J, 1 > ) +32 > s NEXT * D 
çb="":F0RJ=0T02BD*=;D$+MID$(CS, J*3+i , 3 > +KS r NEXT : P S ( i , I>“ 


LEFTKDt, 17 ) *NEXT 
1730 REM 

1740 DAT A24,24,24, 255 , 255 ,126, 60 , 24 , 24 , óO ,126,255, 255 , 
24 , 24 , 24 

1750 DATA24, 28, 30, 255, 255, 30, 28, 24, 24, 56, 120,255,255, i 


20,56,24 

17ó0 R ESTORE j. 740 5 FOR I -OTO 31 : READA : DP0KE&H400+I , A : NEX T 
1770 REM Data Musica 

1780 DATAO, 0,62, 1,28, 1,253, 0,239, 0,213, 0,189, 0,179,0 
1790 DATA 186, 3,82 ,3 ,245 ,2 ,203,2, 125,2,55,2,250, 1 ,221,1 

, 169,1 ,101,1 

1800 DA TA44414i456óo64444770744556ó<!»6ó66Q22234342i iúí 4 
4446667 665544444400 

1810 DATA "'8 8 < : 8 : < o 8 : < s 8 : < s p-?=.=?=8:< s 8 : s ? = 7 ~< > A38 : < s 

8 s < í 8 s C 9 < >< 8 s < : 8 : < s " 

1820 RESTOR E 1 770 ! FOR I =0T034STEP2 sREAD0i,02 * P0KE&HEÜ8Ü+ 
I ,01 s P0KEÊHE08Í+I ,02*NEXT 

1830 READA1 s FOR I =0T063 ! POk E6HEQ0Ü+ 1 , ASC < M IDt < At . I + i , i ) 


) -48: NEXT 

1840 RE ADAS : FOR I-OT Oo 3 : P0KE&HE04Ú+ 1 , aSC iMIDKAS. I + i , 1 > 


>-48 I NEXT 
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1850 DATA3a,a5,e0,3c ,eí>, 3f , 32 , a5 , eO , f 5 , 2i , 00 r eO r 85 , 6f , 
7e , 21 , 80 r eO r 87 y 85 r 6f r 5c r 23 , 56 r 3e r 02 r cd r 93 ,00 
1860 DATA3c , 5a ,cd , 93, 00, f 1, 21, 40, eO, 85, éf,7e, 87, 21, 80, 
e0,85,óf , 5e, 23, 56, 3e r 04, cd, 93, 00, 3c, 5a, cd, 9 3, 00, c9, 00, 
00 

1 870 DATA23, 2 3 , 7c , cd , d5 , 00 , b 7 , c8 , f 5 , 21 , 24 , 1 8 , 3a , ee , eO , 
47 , 07 , 80 , f 5 , 85 ,6f , 3c , 20 , cd , 4d , 00 , 2i r e4 , la , f 1 , 85 , óf , 3e , 

20, cd,4d,00,3a,ef ,e0,3c , ii,60,00,47,2i ,02, 18, 19, iG,fd, 
3e,20,cd,4d ,00, 11 , lc ,00, 19 , cd , 4d , 00 , f i 

1 880 DAT A3d , 20 , 05 , cd , d a , e 1 , 18 , 3f , 3d , 20 , 08 , c d , da , e í , cd , 
af , e i , i8, 34 , 3d , 20 , 05 ,ed , af r ei , 18 ,2c , 3d ,20 , 08 , cd , af , ei 
1890 DATAcd ,cc ,ei , 18 , 2i , 3d , 20, 05, cd , cc , ei , 18 , 19 , 3d , 20, 
08,cd,bd,cl,cd,cc,el,i8,0e,3d r 20,05,cd,bd r el,i8,06,cd, 
bd , eí , cd , da . ei , 3a , ee , eO 

1900 DA1A21 ,24, Í8, 47, 07,80, f 5,85, 6f ,3e,80,cd ,4d,00,2i , 
e4 , ia , f 1 , 85, 6f ,3e , 81 ,cd , 4d , 00 , 3a , ef , eO , 3c , i 1 , 60 ,00 . 47 , 
21,02,i8,19,i0,fd,3e,82,cd,4d,00 

1910 DATAI i , ic , 00, 19 ,3c , cd , 4d , 00 ,c9 , f 5 , 2i ,ee , eO , 7e , 3c , 
f e ,09, 20 , 01 , af , 77 , f 1 ,c9, f 5, 2i , ee , eO, 7e , 3d , f e , f f , 20,02, 
3e , 08 , 77 , f 1 ,c9 

1920 DATAf 5 ,21 , ef , eO , 7e , 3c , fe , 07 , 20 , Oi , af , 77 , f i , c9 , f 5 , 

2 1 , ef , eO , 7e , 3d , f e , f f , 20, 02 , 3e , 06 , 77 , f 1 , c9 

1930 DEFUSR i ^AHEOB 0 * DEFUSR O^ÀHEOFO s FOR I E &HEQB OTO&HEL i E8 
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s R EADA4 * P OK E I r VAL Al > 8 NEXT 

i 940 DATASOcQeOfQfSfcfef f , f f f ef cf 8f OeOcüSO , ff ff ff ff ff f 
f f f f f , 0 í 0 3 0 7 Qf i f 3 f 7 f f f 

í 950 DATAf f 7f 3f í fOf 07030 i r f ef cf ef ef ef cf ef e, 80402010080 
40201, ff f e f d f b f 7 e 3 c i 8 0 

1960 DATAOOf ce2eieiele2f c r 00i83cóóe7e7e7e7 , OOf e3838383 
83838 r OCif OeOe 0 e 0 e 0 e 0 e 0 

1970 DATAf Qf0e8e8e4e6e700 . e7e7e7f f e7e7e7 00 , 38383838383 
8f eOO , eOeOeQeOeOe 1 ff 00 

1980 FOR I =0 TO 1 5 : READAÍ : FOR J=ÜT 07 : UP0KE&H580+ 1 *8+ J , VAL ( 
"&H' +MIDK Aí r J*2+i ,2) > : NEXT sNEXT sRETURN 
1990 REii Demonstração 
2000 CLS 

2010 REST0RE2140 

2020 FOR I -0 T04 sREaDAÍ - FOR J=- 1 T08 * LOCA TE J* 3~ ;i y I*3+9:PRIN 
TPÍL ( < I+J > iiOD2,UAL ( HIDÍ ( Al , J , 1 > > ' ? 8 NEXT : NEXT 
2030 X - 1 o : Y-22 : 0=6 : PUTSPR I TEO . C X* 3- 4 r Y *8- -8 >,1,0 
2040 X < 0 > “i 6 * Y ( 0 ' =10 * D < 0 =2 s PUTSPR ITEi , < x ( ü *8~í i r Y < 0 > 
#8-1 > r 6,0(0 ■ 

2050 FOR 1=0106 - LOCATEò , 13 + 1 s PR INTSPC < 16 > * NEX T 

2060 P0KE&HEÜA5, 0 • S0LIHD9 , í 3 • SOUNDiO , 12 8 S0UND7 r &H38sG0S 

UB i 2101 INTERVALOH 

2070 L0CATE8 , 14 : PR INT " Tec 1 e esp aco" * L0CATE8 , 1 6 s PR INT"m 
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aio r placar"* L0CATE1 2 ,18*PRINTHS! 

2080 G0SUB26Ü *1=0* G0SUB590 

2090 FOR I=QT 09 *IFSTRIG<0)T HENS-Q * G0T02Í 30 

2100 IFSTRIGí i)THENS=i :G0T02130 

2110 IFSTR 1G ( 2 ) THENS*2 * GOI 02130 

2120 NEXT * ORND < í ) *15+1 * 0P0KEÃH20Í6 P C* Í6 * G0T02080 
2130 BEEP * CL3 * INI ERVALOFF * RETURN 

2140 DATA42222227. 10000001 , 10000001 r 10000001,52222226 

2150 GOI 02150 

2160 REM Fím do Jogo 

2170 FOR I a =ÜT02 * L0CATE8 , 10+1 sPRINTSPCC li ) * NEXT s L0CATE9 
1 í »PR INT"GAME OOER" : FOR 1 «0T03000 : NEXT 

2180 M=0 * PUTSPR I TEO , <0,208) sBEEP : INTERVAL0FF*G0SÜB22i0 
*PUTSPRITE2, <0, 208 > 

2190 CLS * IFSC I >HS ! THENHS I “SC ! 

2200 CLS--GOBUB 1990* GOTOSO 
2210 RErl Data Ferrovia 

2220 DA TA04 1 6 1 502020202080 ” , 01000100000402060 1 , Í202030 
21 60302070Í ,01001 20202140001 17, 17000100000 1000101,0100 

05021606000101.050202020202021006.5 

2230 DAT A041615020202080207, 010001000000170001 ,0100010 
00402060001 ,010410020316070001 ,01 17000005021 í 0001 ,0101 

00000000010001.050302020202101606.5 
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2240 DAT AÚ4 i 50802021 6Ú2l 507 r 01010515) ol507 170Í . Í7Í70Ú0 
5070105HÜ1 ,010502020306040601 , 01Ü40202ü«ÜÜÜ10ú0i ,010l 
04021 ó02 i 1 00 i 7 , Ü51Ü1 3020202)00206 r 7 

2250 L>hT AO 4091 6020202070407 ,01 i 70408081 6031 i Oi r Oi 120o i 
70100170101 ,üi 1 700050OÜ0 1 20ò0i, 01 Ü10408 i*O0 100701 ,1712 
11030210070117 , 050ó05Ü20202Üòü506 , 9 

2260 DA 1 AÜ4 1502 16020208 1607 r 01 09081 o07000 104 11 .Ú1170l0 
01202031 117, 170105020 3021 1 Oi 0 1 , 010104020316061701 , 0906 
0 1 000502070514 r 05 1 6 1 3020202l0io06, 10 

2270 DAT AÜ4021502lo02020807 , 120903160207001701, 1701051 
615030701 Í7,0503l6020310030o0l, 0403021303021 iOOOl . 1705 
16060516030701 ,050202020202060506, 10 

2260 DATA04 lôl 502021 OÜ70407 , 0100170416020o i 70l . 0902030 
30704021102, i700G5i ií7i70Qi70i , 1202)6030303020601 . 1704 
1606051 306x61 1,051 31 60202021 Oi oüí», 15 

2290 OATA040215020216Í50207 ,010403161502060411 , i70lU10 
00507040601 ,010109021603030701, 1206Ú51 o02030o0i0i . 1202 
l 6020206000101 , 050202020202161306 , 7 

2300 DATA04 1508020202070407, Í717 17040202101 iüi . 120o09ü 
30700041101 ,010017170507170101 , 12'1 òiül 3 151 3061 701 ,1704 
151610160701 17,050605020202101006,12 

2310 D AT AO 4U21 6020202020 7 00 . 121615160700090307 , 1700091 


603021 401 17, 0508031 6101 6060101,04060502 1602021 401, 1700 




MSX-Jogos. Para aprender e criar. Jogos profissionais 


040202 í 60203 i í , 050213020202160600 ,12 

2320 DATAÜ407Ü4Ü2 16021 50807 .010 1050704 i 6030601 .0105020 

303Í5060001, 1704021 Ü705ÍÓÜ7 17, 01050203031 ÓÜ2i 101, 1202 
16000502020601 ,050202020202020206,03 

2330 DAT A04i 502021 602070407, i70í041ó080203060i , 0105030 
7050705070 1 , 1 2020601 0001 00 i 717, 12021 503020308060 1 , 1700 

17051606010001 , 050216020202130206 , 08 

2340 DATA041502020202070407, Oi 1704021602030601 , 170510Í 
61508030701,090207000101171701,091603020601120601,0104 

03021610030701 .050605020202060506.07 

2350 DAT A04020802 1 602080207 . 090203020“ 0403021 1 . 090203 i 

60303130701 ,090203 1603060001 17, 091 ÓÜ60403Í6020601 ,0104 

02060516020214 . 051302020202020206 . 07 

2360 DAT A0402 15020202 151607 , 1704030216021404 14 , 12i 1 050 
70402060101,010516100302161401 ,050208020316150601 ,0416 

03020600010017.050213020202130206.08 

2370 DAT A0402 150202 1 6081600 , i 70005070402100807 ,0104160 
303020701 i 7, 05030701 17000Í 010 J. , Ô41 31 i 010502031 01 4 , 1700 

01051605110001.05021 3020202101606. 09 

2380 REST0RE2210; IFM2THENF0RK = 1 T0H2 : FOR I-Ü Í06 : READAÍ» t N 
EXTíREADAsNEXT 

2390 FOR I=OT 06 s READAl s FOR J=OT08 ! li ( I , J)=VAL (hl Dl >. A 4 , J#2 
+ 1,2)) íNEXTJ, I iREADP < M2 ) IRETURN 



CAPITULO 





Referências 

Nível de compreensão do programa pelo usuário: DIFÍCIL. 
Tipo de jogo: AGILIDADE e INTELIGÊNCIA. 

Dificuldade do jogo: MEDIANA. 


O jogo 

Você controla o CAPLE, um monstrinho verde que passeia pelo labirinto. O CAPLE deve, 
pulando e andando pelas paredes, empurrar o ZOING (outro monstrinho) até a saída (OUT). 

Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 

CSA VE "CAPLE” t- 1 

Para recuperar: para recuperar o programa da fita, digite : 

CLOAD-CAPLE" «- 1 


113 





114 MSX-Jogos. Para aprender e criar. Jogos profissionais 


Disquete 

Para armazenar : depois de digitar o programa, salve-o em disquete com o comando: 
SAVE"CAPLE.BAS" 4-1 

Para recuperar: para recuperar o programa do disquete digite: 

LOAD"CAPLE.BAS" <J 


Como jogar 

Digite RUN e «-* ou pressione a tecla F5. 

Você deve utilizar duas teclas de movimentação de cursor para controlar o CAPLE: a («-) 
para movê-lo “para a esquerda” e a (-*) para mové-lo “para a direita”. 

Seu objetivo é movimentar o CAPLE de tal forma que ele guie o ZOING para a posição 
OUT (saída) do labirinto. Para tanto, você pode bloquear o caminho do ZOING, carregá-lo nas 
costas etc. 

O ZOING não pode cair em buracos, pois daí ele não sairá jamais ... 

Quando esta última situação ocorrer e o jogo estacionar no mesmo movimento do ZOING, 
você deverá pressionar a tecla ESC (de escapar). Você tem, ainda, um número máximo de vezes 
em que é permitido pressionar a tecla ESC, quando então seu jogo terminará. 

A melhor receita para aprender a jogar o CAPLE é “ficar jogando”. Conforme você vai 
avançando no jogo cada nível apresentará uma dificuldade a mais, que será descoberta com 
inteligência. Experimente! 

Para iniciar o jogo, pressione a barra de espaço; para encerrar pressione CTRL+ STOP. 

10 REh — Caple 
20 ' 

30 T 

40 CLS * CLEAR5ÜÜ : GQSUB47 í 0 
50 DEFINTA-ZsDIMMC ió r 23> :HL»0: Z*="Y : T" 

60 N04-" CAPLE " : PEST0RE 
70 0N8T0PG0SUB6540 - ST0P0N 


80 LE=í ICA=5:AC=0 
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90 S*«"360000000Q000QF 8000F 0F" 

100 s D $ a 5 0 5 0 4 0 3 5 4 0 50707000 " 

110 P4="T i 30Si0ri5000 
120 FOR I«0T024 SPRINT 

130 IF í-i 2T HEHL0CATE1 3 , 23 s PR INT" JOGO " 

140 NEXT 

150 PLAYP* + ,v 04L8CCCFAFAFrt05C3 ' , 1' 1 30S1 Oh500003L8R8R8RÕ 

FCCFFC04C3" 
i 60 REM 

170 F0RI=iT016 

180 M < 1 , 0 ) -0 * WEXT 

190 M4-"" sFOR 1-1T05 

200 READMMI' : H'B=»hS M1M4 s MEXÍ 

210 FOR J~i T023 

220 M0t=iiIDt<h% r ( J-i ) * 4 + }. ,4) 

230 lil9>”B 1 N4 < OAL ' &H' ♦ H04> ) 

240 M.1.4-RIGH Pi < STR INGÍ> < í 5 . 48 ) +iil$ . 16) 

250 F0RL-1T016 

260 M<L. J)aVAL(hID*íMH».L, i) ) 

270 NEXTL , J : READHÜ , rti , S r 00 . 01 r N4 
280 REh 

290 LOCATEO r 23sPR INT s FOR I=0T023 
300 LOCATEi ,23 SPRINT" ! ! ! !"; 
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310 FOR J*iT0ió 

320 LOCATE J+4 T 24 

330 PR INTCHR4 < 32+M< J . I ) > • 

340 NEXTJSL0CATE2Í r 23 
350 PRINT !!!!!!!!!!", 

360 IFK >23THENPRINT 

370 NEXTI : CH“CA 

380 LOCA TE 22 , í : PR 1MTSPC < 8 ) 

390 LOC A TE22 , 2 s P R I NT acikgs " 
400 LOCAI E22 r 3" PR 1NT " bdjlrt ' 
410 L0CATE22, 4 sPR INT" egmouw " 
420 L0CATE22 r 5 * PR 1NT '' fhnpvx " 

4 30 L0CATE22 . o : PR I N TSP C < 8 ) 

440 L0CATE22 r 9 s PR IN F " NI DEL 
450 L0CATE22.il SPRINT CHANCE 
460 L.0CATE22 r .14 SPRINT" NOME DO" 
470 L0CATE22. 15 SPRINT" NI DEL ' 
480 LOC ATE22 r 17 SPRINT N05, 

490 LOCA TE22 , 22 : P R I MT POR ME 8 " 
500 R EM 

510 MX-MÜ : fl Y = hi : OX-OO s 0 r “01 
520 M < HX r M 1 1 ~4 " M < OX . 0 r ‘ -5 
530 NS“RIGHrS( "+N1.9.» 
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540 L0CATE0X+4 , 0Y : PR INT" ) ' ; 

550 P»S+23 

560 XO- < MX + 4 )#8* YO=H‘i *8-1 
570 PUTSPRITE3, <X0, Y0> , i5 r F’ 

580 L0CATE28 r 9* PR IWTUSING ##"?LE 
590 L0CATE29,li:PRINTUSING' < tt - r CH 
600 PUTSPRITEO. <40.-í ) , í í r 8 
610 F' U T SP R 1 1 Ei r f.40 r ~i>,í2,i2 
620 PUTSPP I TE2 r ( Í60 r -i > ,4, 20 
630 FOR 1 “OTO 10 

640 SOUND I . OAL < "&H +MIDt •. St r < 1 + i > »2 -i , 2 1 > 
650 NEXT 
660 REh 

670 X=í : Y=OsXS=i : B X= 16 = B Y-0 : BS=~Í s i>0 
680 REh 
690 REM 

700 XX=X : r Y- r : M=h <. X . Y + i ) 

710 lFr1=0THENY- Y+ i i FOR 1-0T049 : NEXT :GOT 0790 
720 K=STICK<0> 

730 IFK < > 3ANDK < >7THEH750 
740 XS=-(K=3)+‘K=7) 

750 X-X+XS 

760 IFX< i OR X > i 6T HE NX = X X : GOTO 790 
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770 IFM<X,Y> =3THENX=XX * BS=XS : XS»-XS s SOUNDB r 15 : GOT 0790 
780 X=-X*<M(X r Y)«0)“XX*<M<X, Y>< >0) 

790 M ( XX r YY > bO s h ( X r Y ) -2 
800 P=5GN<XS+i )*8+C0 
8í0 CO=CO+i :C0«C0M0D4 
820 X0=(X+4>#8: YÜ=Y*8-Í 
830 P UTSPR ITEO , ( XO r YO > , i í , P 
840 PUTSPR I TE! i , <X.O r YO) ,2 r P+4 
850 Z=Z+Í :2=<2M0D9 

860 S0UND4 r VAL*: / &H" +MID%(SD4 r Z+í r 2) ) 

870 REH 

880 IFINKEY4*CHR t 27) T HENÍ 330 
890 REH 

900 XB=BX : YB=B Y «M=M< BX . B Y+i > 

9í 0 IFM-OTHENB Y~B Y + 1 s F OR 1=01 049* NEXT sGOTO.iO.LO 
920 IFH-5THENÍ iOO 
930 IFH< > 4T HEN980 
940 IFS= í THENB S-~ i. 

*50 IF3-2THENBS=i 
>60 IFS-3THENBT«BY-i 
970 IFS=4THENB Y=B Y + l sGOTOiOiO 
980 BX-BX+BS 

990 IFBX > i 60 PB X < ). THENB X“xB : BS--BS : S0UND8 . 1 5 




Caple 


119 


1000 J.FM< BX r B Y > < >0AMDM<BX .BY ) 1 >31 HE. MB X=XB : BS---B3 * SOUND 
8.15 

1010 h(XB , YB >**03 H*. B X , B Y ‘ =3 * h « nx r MY >=4 

1020 P=BGN(-BS+i *4+BC+16 

1 030 BOBC + l sBC=B C hOD -4 

1040 XO— <BX+4 > * 8 : YO-B Y* 8 - i 

1050 PUTSPR I TE2 . ( XO . YÚ > , 5 r P 

1060 2=2+1 sZ-IMOt'9 

1070 S0UND4, VAL< &H '+MIDS 1 SDS.I+1 r 2.' > 

1080 SOU MD 8 , 0 
1090 G0T068Ú 
1100 REh 

1110 LE=LE+i : I FLE-I > 40THEN1 550 
1120 Q0SUB2O70 

1 130 PL.AYPS *■'- 1 8o2gggeo3cecc" . ' t i30si0«*5000 l8o5g.g 1.09 to 
6C CCC ’ 

1 1 40 LOCA FE 7 r o S PR IN T " + ♦" 

1150 L0CATE7 ,7 SPRINT" ! MUITO !" 

1160 L0CATE7 . 8 s PR INI ' ! BEM \ ! " 

1170 L0CATE7 t 9 SPRINT" ! PR0X1M0 
1180 LOCA VE7 r 10 s PR INT" ! NIUEL ! " 

1 190 L.0CATE7 r 1 1 í PR INT " ! í " s H'b j " ! " 

1200 L0CATE7 r 12 SPRINT" ! BOA SOR TE\ ! ' 
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1210 L0CATE7 ,13 : PR INT" + +" 

i 220 AC=rtC+CH :N0$=LEFT$ ■. Nfc r 8 ) 
í 230 IFAC< >5?THENi6ü 
1240 REH 

1250 PLAY"L640óCDECDECDE 
1260 M*="7F417B7D7D7D7F00" 

1270 FOR 1 = i T 08 

1280 h=0AL < " Mí r I *2-1 , 2 ) ) 

1290 VP0KE263+I r h 
1300 NEXT 
1310 CA=»9 
1320 00 TO 1 60 
1330 REH 

1340 PL A T '' T 1 30S1 0H5Ü002L.8FFEEDDCCCC 1 " 

1350 FOR I-í T064STEP2 

1360 BC-BC+l sBC» s BChOD 4 

1370 P=SGN<-BS+i>*4+B016 

1380 XO» íBx+4 >«8í YQ=BY*8-Í 

1390 PUTSPR I TE2 r ( XO YO) r 5 r P 

i 400 FOR J» 1 T 064-1 : NEXT J . I 

1410 PUTSPR 1TE2 , <X0 r Y0.< r 15 ? 20 

1420 CH=CH-Í s IFCH< 1THEN1460 

1430 M< X , Y > =0 : M ( BX T B Y > =0 



Caple 121 


i 4 4 0 F OR J-OT 0 199? s NEX í 

.1450 IFINKEY§< >""THEN1450ELSE50G 

1460 REM 

1470 P L A "t P % + " o S 1 8 c c d +' c c: d c a d e f 1 6 d f c 3 " 

1480 G OS UB 2070 

1490 L0CATE0,23iF0RI“0T023 

1500 IF I»12THENL0CATE10 r 23sPRlNT y 'FIH DE JOGO \" , 
1510 P R I NT t HE> T : 60SUB 2110 

1520 L 0 CATE 3 r 20 sPRINT' PRESSIONE A BARRA DE ESPAÇO' ; 
1530 IFSTRIG(O) THEN60ELSE153Q 
1540 G0SUB2Q70 • LE=~1 " RETURN1460 
1550 REM 

i 5 6 0 S0UND4 ,0 s PLAYP t + 0 5 L 8 C D E C DECDEióEióA 3 
i 570 I FP LA Y (0)7 FIEN 1 570 
1580 CL..S * GOSUB 2070 

1590 LOCATEQ, 15 SPRINT "! ! ! I I " , SPC < 22 > ? " H ! ! 1"t 

1.600 FOR 1=57015 

1610 LOCAI EI , lSsPRIH f ' ! " s 

1620 L0CA7EI-5, 15SPRINT" ' ? 

1630 L0CATE31-I r 15:PRINV • ", 

1640 L0CATE36-I , iSsPRINT" " ; 

1 650 PUTSP R I TEO , < <1 ~4 >*8,iil),ii,8 
1660 PUTSP RITE! r <1-4)^8,111 ) , 12 . 12 
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i 67 0 PUTSPR I TE2, < < 31.--I >*8 , 1 i 1 > ? i 1 r 29 
1680 PUTSPRITE3, < <31-1 • * 8 , í í i > r 13 , 30 
í 690 FOR J-0T099 : NE> 1 J „ I 
1700 FOR I-0T08 : CO»! 

1710 C0»CG(‘10D4 

1720 P--C0+8 

1730 XO-'. 1/2+ li >#8 

1 740 P UT SP R I TEO r < XO . i í i > , 1 i r p 

1 750 P U r SP P I TE i. .<XO.il j. > . i 2 .P+4 

1 7 6 0 F 0 R J - 0 l 0 1 9 9 s W E X 'I J . 1 

1770 L0CATE6 , 3 s PR IN I ... PARABÉNS 

i 7 80 LOCA TEO r 6 

1790 PPINTTAB <7> s • -• 

1800 PPIND AB<7> 

1810 PR INTTmB v 7 ■ ; ' 

1820 PR 1NTTAB < 7 > « ' _ 

1 830 P P INTTmB < 7 ) = „ * SPC •. lo) . • ... 

1840 PR INTTAB (?) j '_.CaPLE 0 ORaNDE \_. 
1850 PR INTTAB < 7 > s ' _ . SPC < 16 ) ■ 

1860 PRINT TaB <7 ) >" *SPC < i-4 > 

1870 PR INTTAB < 71 ? SPC i2 > , 

1880 PR INTTAB < 7 > ■ " _»!!!!!!!!!_" 

1890 PRINTTAB <7> • 
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í 900 PR1NTTAB(7> 

1910 PRINTTAB<7 > f " 

i920 PR INTT AB <7 > j " - - " 

1930 P R I NT T AB < 7 ) j " 

1940 PR INT s PR I NTT AB < 7 ) : "PRESSIONE A BARRA DP ESPAÇO j 
1950 0N8TR IGG0SUB206Ü 
1960 STRIG(O) ON 

1970 A$“"Ti309i5s i0i»50Q0o 6 1 8edcedcedccd4r8 

i 900 B %®' v 06 1 8d co5bo6d c o5b oóf c d ©4r 8 

1990 CS- ' oól 8dco5bo6gf e8c8r 8c8c4r 8 

2000 DS* s "o41 8edcedcedcd4r8 

2010 ES- "o4 1 8dco3bo4dco3bo4f ede4r 8 

2020 F 3~"o41 0dco3bo4<jf e8c8r8c8c4r 8 

2030 PLAlAS+BSsPLrtYAS+CS 

2040 PLAYDS+ESsPLA íDS+F 9> 

2050 G0T02030 

2060 CLS s 00SUB2070 sRUN 

2070 REii 

2080 F OR I =0705 

2090 PUTSPR I TEI , <0,207 > , 15,0 
2100 NEXT s RETURM 
2110 REh 

2120 IFLE< HLTHEN2230 
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2130 HL=LE:L0CATEó r 23 

2140 PR INT"TERMINOU SEU JOGOV" 

2150 FOR I =0T 05 s PR INT s NEXT 

2160 P0KE64683! r 1 SLOCATE? r í 3 s PR INT"SEU NOME?" ? 
2Í70 Z %~"" ! FOR I=0T02 
2180 AS^INPUTS* 1 ) 

2190 IF ( A4< "A^OR At >" 3" ) ANDAI < >" "THEN2180 
2200 Z%«ZÍ+A»3PRINTA4 ? : NEXT 
2210 IFZS="CAR"THEN2260 
2220 GOT 02250 

2230 LOCA TE 6 , 23 s PR INT" MELHOR NIUEL " ? Z$sHL 

2240 FOR I-ÜT 05 s PR INT : NEXT 

2250 RETURN 

2260 PLAYP4+" cegoóc" 

2270 M(MX r Mí ) =0 s M< X r Y > *=Ü «M( BX r B ( >=0:M<0X,0y )=Ü 
2280 FOR I-0T024 SPRINT 

2290 I F I - 1 2 THENLOC A TE i 2 . 23 s PR 1 N T EXTEND • 

2300 NEXT BRETURN280 
2310 DATASÍf f f c if feOf 03800000 
2320 DATA319c6b5a6b5aó35aóbd c 
2330 DATAob58335B0000Ü31e0318 
2340 DAT A03 1 803 1 c 03 x 803 i 803d e 
2350 DATAOOOOftff ffff 
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23 óü DAT AIO ,4, 1,2, 2, SPOONS 1 
2370 DATAF81FFC3F0GQ04FC030Ü0 
2380 DAT A0002Q07 C00Q027F 01800 
2390 DAT AOO7F00OOÜÜOÜ 1 7FG0800 
2400 DA Í A00000GÜ007F 200Ü44FC0 
24 iü DA TA30ÜÜ00ÜÚFFFF 
2420 DAT A i 3 , 19 , 3 , 4 .. 14 , CARR í 3 
2430 DA TAF 3f : F0000Ú000000Ü4000 
2440 DATA 3 F ÜE 0 0 7 0 0 0 0 0 0 0 0 0 0 Ü 0 0 
2450 D A T A 0 C 3 0 0 C 3 Ü 0 C 3 0 0 0 0 0 0000 
2 4 ó 0 D AT AOÜ 0 0 1. F F 0 i 0 í 0 1 0 i 0 8 F E 1 
2470 DA TAC003E007FFFF 
2480 D AT A9 ,7.1,15.0. DOWNDOWN 3 
2 4 9 0 D A T AO ÜO J 00 0 2 4 0 044 0 0 6 4 + f 0 
2500 DAT A4000ó0027ff 840004000 
2510 DATA40000ÜÜÜ00Ü00Ü000000 
2520 DAT aOO? d 000000000000 if F e 
2530 DATAS f f e 7 ffef f +' f 
2540 DAT A16, 22,3,2,21 r TRAP 3 

2550 DATA E 0 7 F F 8 F F 0 i V F03FF iFFF 
2 5 ó 0 D A í A 8 000 8 0 0 0 8 8 FJ E 8 888 8 8 8 8 
2570 DAT A 8888888807 034208420 8 
2 5 8 O D A T A 4 2 0 8 4 2 0 842084 2 4 8 4 2 4 8 
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2590 DA T A40GÜ-400ÜFFFF 
2600 DATA3,5,2, i .23,MSX 3 

2610 DATAFEFFC00 3800x00000000 
2620 DAÍAÜÜ008Í9J 8A51DAÜAAAÜA 
2630 DAT AA984884A884 A8A5 1 89 VI 
2640 DATAÜ000F7FFJ)00rj0Ü0Ü0000 
2650 DAT A800ÍC003FFFF 
2660 DATAS, 7 r 2 r ió , 21 , > ACHT 3 
2670 DAThCFFFEOOOFFFEÚ 0780000 
2680 DAT AOOÜ1000CI010001Ú00340 
2690 DATA0340076007600F700F70 
2700 DAT A00004 1 023DF C 1 FF8ÜFF O 
27 lO DAT AG/E OOUÜOFFFF 
2720 DATA7, Í8,3, Í6, 17, ATTACk 3 
27 30 DA T A8O 7 FaOGO't 70O8OÜ2EO7C 
2740 DAT AF ÜOUF tOOF F OOÜOOÜOOOO 
2750 Da TADOOOOOOOOOOOOOOOOOOO 
2760 DATaOOOOOOOOOOOOOOOüOOOü 
2770 DA T A6080C 1 OQFFFF 
2^ 80 DATh5,3,2, 16,23.S1MPLE. D 
2790 DA 1 AF . F F 0000000000000000 
2800 DA I A000000Ü0000Ü00008 1 F F 
28: 0 DAT h/óOOOOOOOOOOÜOOOÜOOO 




2820 da r aOOOOOÜÜGOOOÜODÜQOQOO 
2830 DATAOOQOÜOOOFFFF 
2840 DATA5 r ll r i t ló r iO,FACE 3 
2850 DA í A/FFFOÚOQOÚFEOOOOFEÚO 
2860 DAT hOOOOI L 3C i 224 io2C 1224 
2870 DA T A tE3COOOOOOOÜOOOOlFOO 
2880 DAT A0ÚFF0000000080Ü0E000 
2890 DATAF8ÜÜF FFDFFFF 
2900 0 AT A i 5 r 22 r 1 r 1 õ , 22 . JUMP 3 

2910 DATAE07F 001F000FDFDFC Ú7F 
2920 DA I AB03F OOOF 0007 000 J0Ü01 
2930 DATaOOOO 3C003C0G3F FC3FE0 
2940 DAT A JF E03FE03FEG3F E03F L i 
2950 Dh r A3FE 1 3FF lFFFF 
2960 DATAil t 4 f 3,íó t 2Q, ASCII J 
2970 DA r AE7FF0Ü0 3F F V i007i0007 
2980 DAT A03F FÜÜÜ0000023255455 
2990 DA ÍA545552457 15551 555625 
3000 DAT HÜOOOf 7f i 000000000800 
30 i0 DATAFFEFFFFFFFFF 
3020 DATAi2,2i r l r Í5,2i,UP UP 3 
3030 DATAC001C002C006C008CÚ lO 
3040 DATACOOOEOOOF F t C 00000008 
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3050 DAT AÜÜ 100040003800000000 
3060 DAT AÜOO 30000000000000000 
3070 DAT A3FF87FFEFFFF 
3080 DATA14,2i , 3 , 1 , 22 , POCKETSi] 
3090 DATAF81FFÍÚÍF0FCE0Ü08003 
3 í 0 0 DATADFFFO 0 0 0 7 E007FDE70Ü6 
3110 DATAÓ002403E408240C24Ü02 
3120 DAT A40024002400240024002 
3130 DATA40024FFEFFFF 
3.140 DAT A4 r 22 , 2 , 3,22 , TR AP 2 3 
3 i 5 0 DA T ADFFFCÜ0QE7FE1002B9FA 
3 1 60 DAT AB C7 AFE7 AD i 7 AFB 7 AFB 7 A 
3170 DA TAÜQOGQÜÜO 3FFA7FFE3FFC 
3180 DAT Ai FF 1ÜÜ043F D21F 900F2Í 
3190 DATA0002 3 F F 0 F r F F F 
3200 DATAI, 18,3, i,22,.SPACE 3 
32 10 DAT AF 1FF080004Ü0Ü0FE00Ü0 
3 220 DATA 0 2 0 0 0 0 (D 0 0 000000 0 0 0 0 0 
3 2 3 0 D A T A 0 0 0 0 Ü 0 0 0 0 0 0 0 00 0 0 0 000 
3240 D A T A 0 0 0 0 0 0 Cl 0 0 0 0 0 0 (300 0 0 0 0 
3250 DA T A 0 0 0 0 0 0 Ú Ü F F F F 
3260 DAT A8 . 5 ,3 , í o , 13. EIGHT 3 
3270 DA T AC X F F 8 0 1 F 3 0 0 F 7 4 0 3 1 0 0 L 



3280 D Al A92Q i C CO í 800 j. C F F C 8002 


3290 DATA2ÜÚ24ÚÜ25FFC 40022002 
3300 DAT A000220Ü2 1 F F C0Ü00000 1 
33 10 DATA4003ó007FFFF 
3320 DAT A5,4 r 3,i r 22_C 1RCUS 3 
3330 DA T AE3FFF 3FFF003F80 ) F F r E7 
3340 DA Í AL 003800. i 200020022002 
3350 D Á T A 2 0 0 2 1 413 rt 0 4 0 8 0 5 E 8 0 4 0 ^ 
3360 DAT A 0 3 9 0 0 0 2 0 0 0 C E 7 EL 0 i 0 i F 0 
3370 DA T AOOOOFFÚÚFFFF 
3380 DATAÍ2 , 13 r 3 , i6 , 22 r JUHP 2 3 
3390 DA T AFOOFFOOFEOOOEúOOFDFh 
3400 DAT AEOOOC 000800000000000 
34 1 0 DA T AOOO i 000 30000000400 1 C 
3420 DAT A000C07E40Ü0C0EF C8004 
3430 DAVAC104EÍ04FFFF 
3440 DATA? r 5 , 3 r i-3 r 23 r i AkAT A 3 
3450 DATA800F 300 1 COO 1 F FF 5 8 005 
3 4 6 0 DAT A 3 li 0 9 8 0 4 i 8 0398 0 0 i 8 0 0 1 
3470 DATA8003BF'FF80Üi88üiEO0l 
3 4 8 0 DAT A 8 0 0 i 8 8 0 i t E D i 8 0 5 i 8 i 8 1 
3490 DA T A800 í 98 3CFFFF 
3500 DAT A4 , i 8 r 3 r i 5 , 22 r T OWER 3 
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3510 DA T AF 3FFOÜOOFCQOFFJOÜÜGOG 
3520 DAT A0Ü000GQ00080018Q03C0 
3530 DATA03C007E007EG07E007E0 
3540 DAT AÜ7E007E0Ü7EQQ7E0Ü7E0 
3550 DAT A07E007E0FFFF 
3560 DATA8 , 8 , 3 r 5, 23, REALTIME3 
3570 DATA8FFF OOOÜFFDFOOOOOÜOO 
3580 DAT A03DF 040004000 4 ÜOOOOÜ 
3590 DA T AOOí FOI E00000001E5FE0 
3600 DATA8000ÜÜ3FEF COOOOOOOOO 
3610 DATAOOOOCOiOFFFF 
3620 DAT Aó ,11,2,3, 22 , F ACE 2 T 
3630 DATABFFD 10045002 100033FF 
3640 DAT A00003BF000007BFE4A7E 
3650 DATA4A7E4A7E7BFE7BFE0000 
3660 DAT A6606240425F C04000ÓÜ0 
3670 DATA00000200FFFF 
3680 DAT A5 ,22,3,6, 22 r BUN BUN3 
3690 DATAEBFFE82FC0079FF3254? 
3700 DAT A67CD3FF9899334594445 
3710 DATA5C755C755C755C755C75 
3720 DAT A5C755C754C6524499013 


3730 DATAC467E00FFFFF 
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3740 DATAS r 2i , 3 , 8 , 22 r ATTACK 23 
3750 DATAEOí F'F 03FF 9FF000QQ00Ü 
3760 D AT A000045 1045 1045 104510 
3770 DATA38EÜ02Ü0Q0ÜQ4 i 004 1 00 
3780 DAT A3F.00000 i 0QFCQQÜÜ8 J. 00 
3790 DATA81008100FFFF 
3800 DATAIS, Í8,3, t6,22 r B0X 3 

3810 D A T A F C F F 0 4 8 0 F C F F 0 0 Ü 0 0 Ü 0 0 
3820 DATAFC00078ÜF0BF iF A0003F 
3830 DAT AQ0000Ü407DEQC53F 0500 
3840 DAT AFDFF00003F 80E0E.C0E43 
3850 DAT AFBCOOO 107FFF 
38ó0 DATA? , 6 r 3 7 i , 23 7 BUILDING3 
3870 DATAE03FQÚ4Ü4780Í Q3E082A 
3880 DAT A003E022A2CBE0Í2A003E 
3890 DAT AOFAAOABEOFAAOABEÜF Art 
3900 DAT AOABEOF AA0ABE6F FF6FFF 
39Í 0 DA T A00009000FFFF 
3920 DAT A2 , 22 ,1,16,23, TIHING 3 
3930 DATACOOF 4008400840ÜB4008 
3940 DATACOOF 80007FF0000D0000 
3950 DATAÜÜ00Ü00000000002003C 
3960 DAT A5FC 28002000200020002 
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3970 DATAFFF AFFFEFF 
3980 DATA3,20,3,14,21 ,ET 2 
3990 DATAFAFF800738E34D3Í4D31 
4000 DATA4D3038E002ÜG020Ü0780 
4010 DATAÜ6800000 1 Ü2087C0C0Q8 
4020 DAT AFQ20FFEG01E0F 8E0DC6D 
4030 DATAE0Ó0FC6ÚFFFF 
4040 DAT£5, 14,3, 12, 16, APPLE 2 
4050 DATAC7FFE00FF01FFB3FF87F 
4060 DATAFCFF8Ó83000 100000600 
4070 DAT AÜóOôOôÜóOóQòÚÚÜóQóOO 
4080 DAT AÜ786Q6GÓ882Q83CÍC001 
4090 DATAE003FFC7FFFF 
4100 DAT Aó , 19,3,13,22, TR ICK ] 
4110 DAT AeOOf 2008200820082008 
4120 DAT AeOO-f 80Q0f f f e00000020 
4130 DATA7f 6f 01 400 1400 1400 140 
4140 OATAOi 4001 40014001 4001 40 
4150 DATA01400140f df f 
4160 DATA12,il ,3,7,23, ACROSS 2 
4170 DAT AE0FFF1FF 000007000000 
4180 DAT A80C039F 0300002000200 
4190 DAT AÜQÜ0Q0003B8Q7BF80Q0Ü 




4200 DA I A04 i40Ei07bE00002FFF3 
4210 D A T A000 37FFBFFF F 
4220 DAT A2, 7 , 3 f t , 22 r STEF 1 
4230 DA FAF 8 3F000000000 "003800 
4240 DAT AÜU00D3FCÜ000DQ0Ü77FF 
4250 DA I A00000800ÜF E00800ÜÔ1C 
42<*»0 DA TAOtíOOQAiF OFJEÜÚCQÜÜfelUO 
4270 Drt T A0800F AOOFF F F 
4280 DAI Aó ,7,3. ló. 22 , 1 R AP 3 3 
4290 0 A í A87 FF^ 00 1. C F F C C 3F iCOOB 
4300 DATA80011FF COOÜ i6F FF4G7F 
4310 DATA31 3F7E0F3C43000l>Üo80 
4 320 DA I mOOOUÜÍOÜiE CIÚ 40FEFÜ3F 
4330 DATAFCOOFFOOFFFF 
4340 DAIA8, 15,4. 15,22. OICTIH 3 
4350 DAT AF7FF i400i "FFFÚOOOOOO 
43«,0 DATAOF FE i 000200040001.000 
4370 DA rA0000000000025FFC800Ü 
4380 DaThOQÜIEOOOIF F A 000000U2 
4390 DATA000300Ü3FFFF 
4400 DAT Ai ó r 1 1 , 2 , i , 2 r H aRD 3 
4410 DA FAL 7FF 7000 14520 392000» 
>420 DAT a9FC'0Ú02000004A4 q 4A49 


1 34 MS X- Jogos Paru aprentUr e crusr. Jogo; profissionais 

4430 DnTA4A493l86000ÜF C 000000 
4440 DATA4BE2482240204822301C 
4450 DATA00007FE0FFFF 
4460 DAT A3 ,6,2,1,22, AÜA1N 3 
4470 DATACI F7A91 10044 120Ü4ÚI i 
4400 DAT A01ÜÜ54440DÚUÜ292500Q 
4 490 DA T A07FQC084 í A li 288000 i F 
4500 DATA0004ÜFF240007F EAÜ*20 
45l 0 DAI A400840Ú8FFFF 
4520 L-ATA4, 17, 2,3,22, WAIT 3 
45 JÜ DAÍAF IFF08000400F0000DFE 
4540 DAT AOOOOí 600100008000006 
4550 DATAÜ1F 838000004020 4 1 20 4 
4560 DATAÍ 204QC030 12001 2F38C.0 
4570 DATA38003800FFFF 
4560 DATAò, 12,3, 16. 22 r FUTURE 3 
4590 DAÍADDF FECFFE4E784E784E7 
4 600 D A T A 8 4 ó 1 A 0 E 7 B C E 1 3 C C 7 3 00 7 
4*10 DA T AÜ 1 8 33F3 30000 7 DFF60 1 F 
4620 DA f A0BDFC8Í FC81FE0 F FFaOÜ 
4630 DA TA02Q01E20FFBF 
4640 DAT A 1.0,23, 3, 1 ó , 22 , FttiNDOh 3 


4650 DA TrtFEFFOOÚú492420080620 




4460 DATA00829ÍQ9644Ü02022094 
4*70 DA TA5520084844822 1084020 
4680 DAT AQ25020427E0100FFFCOO 
4ó 90 DAT AOÍ OOOlOOFFFF 
4700 DAT A5 , 5 r 3 r 1 T 22 r A 
4710 * 17/03/86 

4720 r 

4730 ? cap* 

4740 ' INIC1ALIZACA0 

4750 SCREENÍ ,O.OsCOl.ORi5 r i r 1 
47 60 W:iDTH32*KEY0FF 

4770 LOCATE 8 r iQsPR INT'*ESPERE UM MOMENTO 
4780 R ESTORE 5050 
4790 FOR 1=01030 
4300 READ P%«P5%="" 

4810 FOR J“1T015 STEP2 

4820 PS%“PS4+CHRS< VALI f '&H' +H1D4 ( PS , J r 2 > > 

4830 NEXT J 

4840 SPRITE§< I >=PS4 

4850 NEXTI 

4860 RESIORE 5360 

4870 S=0 s FOR 1=0 TO 74 

4880 IF I >i8THENP-46* GOT 04920 
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4890 IF I >7THENP=40:G0T0492Ú 
4900 IF I > íTHEN P»20 r GOT04920 
4910 READ P 
4920 READ P$:PS*«»"" 

4930 FOR J=1T0 Í5STEP2 

4940 0P0KEP*8+I*8+ < J-i )/2 r OAL < IDS < P$ . J p 2 > ) 

4950 NEXTJ, 1 
4960 VP0KE&H2004 , Í-.H8Í 
4970 VP0KEÃH2005 r &H71 
4980 0P0KE&H20ÍQ , SHDí 
4990 0P0KE&H2Q0C . ÂH3Í 
5000 0P0KE&H200D r ÃH31 
5010 0P0KE&H2Q0E r &H3i 
5020 0P0KE&H200F . &H3i 

5030 FOR I k OT 07 * DP0KE728+I . 0 » 0P0KE744+ 1 r 0 : READaÍ « 0P0KE2 
008+1 , OAL ( "&H" + A1> ) • NEXT 

5040 G0T06Í20 

5050 DATA 3C.7F7F AEAEFCf70QÜ 
5060 DATA 3C7F7FDEDEF04000 
5070 DATA 3C7F7FBEBEFC4400 
5080 DATA 3C7F7FDEDEFC6Ú0G 
5090 DATA OOOOOOOOOOOOOEDE 


5100 DATA OOOOOOÜÜOOiC 3C78 
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5 .1 í 0 

DATA 

0 0 0 0 0 0 0 Ü 0 Ü 00 3 A 7 A 

5 i 20 

DATA 

Ü00Ü00000000ÍC3C 

Si 30 

DATA 

3CFEFE75753F0E0Ü 

5i 40 

DATA 

3 C F E F E 7 B 7 B 0 7 0200 

Si 50 

DATA 

3CFEFE7D7D3F2200 

Si 60 

D A Th 

3CFEFE7B7B 3F060Ú 

Si 70 

DATA 

0 0000 000 00007 07 B 

5ÍB0 

DATA 

000000 00 0038 3 CiE 

5:190 

DATA 

00 0000000 00 05 C5E: 

5200 

DATA 

0 0 0 Ü 0 0 Ü Ü 0 0 Ü 038 3 C 

52 ÍO 

DATA 

3C5EBDBDFFF7783E 

5220 

DATA 

3C72FDFFDFBFB23C 

5230 

DATA 

7C LEEF FF DDDD7A3C 

5240 

DATA 

3C7DCDFBFFBF4E3C 

5250 

DATA 

3C7 ABDBDFFEF iE7C 

5260 

DATA 

3C4EBFFFFBFD4D3C 

5270 

DAT A 

3E78F 7FFBDBD5E3C 

5280 

Data 

3CB2BFDFFFFD723C 

5290 

DATA 

7 E E F C F 8 í 8 i C F E F 7 E. 

5300 

DATA 

7EF7F 38i 8Í F3F77E 

53 ÍO 

DATA 

7EE7C 38ÍE7E7E77E 

5320 

DATA 

7EE7E7E78iC3E77E 

5330 

DATA 

492AÜ06B 002A49Ü0 
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5340 

DATA 

38737CACAEFC6000 

5350 

data 

04ÜC0302000Ü1CBC 

5360 

DATA 

33 r DFOFDFOOFBFBFBOÜ 

5370 

DATA 

40 „ Ff ÜOEF AAF AOOFF 00 

5380 

DATA 

Í8i61618i8i81818 

5390 

DATA 

OODOOOF FF F 000000 

5400 

DATA 

ÜOOOOO1FÍF101818 

54Í0 

DATA 

0ÜQ00ÜF8F8i818iB 

5420 

DATA 

ÍB 18 I 8 IF iFOOOOOO 

5430 

DATA 

18i 8 18F 8 F 6000000 

5440 

DATA 

3E6367 607 3633E00 

5450 

DATA 

183858i818i87E00 

5460 

DATA 

3E63o3033Eí>07F00 

5470 

DATA 

3E63030E03633E00 

5480 

DATA 

i E 3666 6666 7F06QÚ 

5490 

DATA 

7F6O7EO363633E0O 

5500 

DATA 

3E63o07E63633E00 

55 Í0 

DATA 

7F6 3030600181 800 

5520 

DATA 

3Eô3633E63633E00 

5530 

DATA 

3E63633F03633E00 

5540 

DATA 

OOOOOOOOiCICiCOO 

5550 

DATA 

1C2263637F 636300 

5560 

DATA 

7E63637E63637E00 
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5570 DATA 3E63636063633E00 
5580 DATA 7C626363ò3627C00 
5590 DATa 7F60607C60607F00 
5Ó00 DATA 7F60607C60d>0o000 
56Í0 DATA 3E63636067 633E00 
5620 DATA 6363637Fó363ó300 
5630 DATA' 7EÍ 8 Í8.1818187E00 
5640 DATA 3F0C0C6C6C7C3800 
5650 DATA 666C7870786C6600 
5660 DATA 6Ü60606060ó07E00 
5670 DATA 63777F6B63636300 
5680 DATA 63737B7F6F67 6300 
5690 DATA 3E63636363633E00 
5700 DATA 7E6363637E60ô000 
5710 DATA 3E6363636B663D00 
5720 DATA 7E6363637E6C6700 
5730 DATA 3E63603E03633E00 
5740 DATA 7Ei8i8i8i8i8i800 
5750 DATA 6363636363633E00 
5760 DATA 636363633636 í COO 
5770 DATA 636B6B6B6B7F3600 


5780 DATA 63773EÍC3E776300 
5790 DATA 666Ó663C18Í81800 



MSX-Jogos. Para aprender e criar. Jogos profissionais 


5800 DATA 7E06ÜC í 830o07E00 
5810 DATA 3C3Q3030303Q3C00 
5820 DATA Í83C3C1800Í81800 
5830 DATA 3C0C0C0C0C0C3C00 
5840 DATA Í0307FFFFF7F30Í 0 
5850 DATA 080CFEFFFFFEOC0B 
5860 DATA 0000000000000000 
5870 DAT A í F3F7FFFFFFFFFFE 
5880 DATA FCFCFCFCFCFCFCFC 
5890 DATA FBFDFEFFF FFF07FB 
5900 DAI A FDFCFCFCFCFCFCFC 
5910 DATA FCFCFCFCFCFCFCFC 
5920 DATA FEFFFFFFFF7F3F1F 
5930 DATA FCFCFCFF FFFFFEFD 
5940 DATA FB07FFFFFFFEFCF8 
5950 DATA FBF DFE7F7F 7F3F3F 
5960 DATA 3FBFBF8FBFB FBF"BF 
5970 DATA FBFDFE7F7F7F3F3F 
5980 DATA 3F3F3F 3F3F7F7F7F 
5990 DATA BF BF3FFFF F F FFF7F 
6000 DATA 7F3F3F3F3FBFBF5E 
60.10 DATA 7F7E7D435F5F5F5F 
6020 DATA 5F5F5F5F5F 5F5FBF 
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6030 DA T A BFDFDF5F5F5F5F5F 

6040 DATA 5F5F5F5F5F5F5F 5F 

6050 DATA FEF FFFFFFFFFFECO 

6060 DATA CQCOCOCÜCOFEF FFF 

6070 DATA 5FDFDFDFDF DFDFDF 

6080 DATA DFC ÍF EFF FFFFFFFE 

6090 DATA FFF FFECOCOCOCOCO 

6Í00 DATA CGC0FE7F7F7F7FF E 

6.1 10 DATA 0E t iB r 30, 30 r 30, ÍB ,0E , 18 


6 i 20 

REM 





6130 

REM 





6140 

CLS 





6150 

PR INI" 

{ 

! ! ! 

M ! M 

! ! M ' 

6 160 

PRINT" 

I ! 

I ! ! ! 

! ! ! M 

I I '■ 

6170 

PRINT 

! ! 

{ M ! 

M ! ! ! 

! ! " 

óí 80 

PRINT" 

j I 

! M ! 

! j i M 

I | " 

6190 

PRINT" 

I ( 

! ! ! ! 

M ! M 

1 ! " 

6200 

PRINT" 

I I 

! ! ! 

M ! ! ! 

! M " 

6210 

PRINT" 

! ! 

! ! ! 

M ! M 

| I " 

6220 

PRINT" 

j I 

L ! ! ! 

M ! ! ! 

! ! " 

6230 

PRINT" 

! ! 

! MM 

M ! ! ! 

! ! " 

6240 

PRINT" 

! ! 

! ! ! ! 

! ! ! ! 

\ ! " 

6250 

PRINT" 

! 

! M ! 

M MM 

i I. M ! " 
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6260 PRINT 

6270 PRINT" 1986 * 

6280 PRINT 

6290 PRINT" PRESSIONE A BARRA DE ESPrtCO" 

6300 PRINT 

6310 PRINT" CHAVE : : sCAPLE" 

6320 PRINT" 

6330 PRINT" A _ ss: ZOING 

6340 PRINT" 

6350 PRINT" : : 5 RET ORNO PRINT 

6360 PRINT" > : : : SAIDa ' - 

6370 PUT SPRITEÜ r < 48 r 1 43> , í 1 , 0 

6380 PUT SPRITEi,<48 r i43>,i2 r 4 

6390 PUT SPR I TE2 r ( 1 04 . i 27 ) r i 1 , 0 

6400 PUTSPRITE3. (104.1 27 ) r :i2 r 4 

6410 PUTSPRI TE4 r *. Í04,i43) f 5 r 16 

6420 PUTSPRITE5, Ií04 r i59> r i5,24 

6430 ONSTR IGG0SUBó530 

6440 STR IGiO>ON 

6450 04= V15S9HÍ000T255 

6460 «4="03L8G4R8G8E4C4rt4P0A8F 4D4B44RBB864E4 
6470 Et="E4F404R4" 


6480 F4 = F4E4D2" 
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6490 G$=' / 07C2C1R4" 

6500 PLAY 01 s PLAYA4+E1 * PLhiAÍ+FÍ 
6510 PLAYAS+E* « PLAY A*+E1>: PLAY hí+FÍ 
6520 GOT 06450 

6530 FOR I=0T05 J PUTSPR I TE I r < 0 . 203 ) 15 , 0 : NEX f e S TR I G •: 0 > OF 

F : RETURN50 

6540 SCREENO : BEEP 
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Referências 

Nível de compreensSo do programa pelo usuário: DIFÍCIL. 

Tipo de jogo: AGILIDADE. 

Dificuldade do jogo: MEDIANA. 

O jogo 

Você deve pilotar o seu carro fórmula 1 , desviando dos outros carros da pista e tentando 
não bater contra o guard-rail. Para chegar ao fim desta movimentada e colorida corrida, você 
precisará de seus reflexos de corredor ! 

Este é um jogo rápido de se digitar, exigindo apenas atenção para não copiar o programa 
errado. Toda vez que copiar cerca de. 20 linhas de programa, lembre-se de guardar a nova versão 
em fita cassete, pois nunca se sabe quando a energia elétrica será interrompida ... 


Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"F-2" 

Para recuperar: para recuperar o programa da fita, digite : 

CLOAD"F-2" 
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Disquete 

Pura armazenar', depois de digitar o programa, salve-o em disquete com o comando. 
SAVE-F-2.BAS" <-l 

Para recuperar: para recuperar o programa do disquete digite: 

LOAD-F-2.BAS" «-! 


Como jogar 

Digite RUN e «- 1 ou pressione a tecla F5. 

Para iniciar o jogo, pressione a tecla de espaço, quando então seu carro começará a correr 
na pista. 

Para dirigir o carro, utilize as teclas de movimentação de cursor “para esquerda” (<-) e 
“para direita” (-*). 

Quando desejar interromper o jogo, pressione CTRL+ STOP. 


iü REM formula Interlagos 
20 RE ri 


30 0NST0PG0SUB2250 s ST OPQN 


4 0 D E F I N T' A - Z * S C R E E N l 
s A-USR ( 0 > : WÍDTH32 


2 : COLOR i . 14 . i.4 «KET OFF : OEFUSR-éHFE 


50 PR INI " AGUARDE Uri MOMENTO* : FOR I K i T 04 e 1- c • l * 


9 s R S t I > -99 * NEXT 

60 DATA030F0F 3B 3F 3F3B070o747C7C 7F77070ÒC OFOFODC FCFCDC E 
QA02E3E3EFEEEE0ÓÜ 

70 DATA0OOÍO3O73378F7FC583O78FD3F1E0D0307CBEBEFFFFF2FF 

B5E5 C C 8 E) 0 F 8 F 0 E 0 C 0 

80 DAT AÜ03E 3E3E í CFFF i 707 OF i FF 1C3E3E 3EÜQQ000 “ 6787EB oFFF 
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FFFFF66?E 7 8 7 0GOOO 

90 DATA080DiE3FFD;'83058FCF 7 78330703Ú100C0E0F0F8BGC85C5 
EF8F2FFFFBEBE7C30 

100 Oh r A0607777F7C7C7406073B3F 3F 3B0F0F03o0E0EEFE3E2E 3E 
oOEÜOCFCF CDCFOF OCO 

110 DATA03070F0F03í33a 7A3F4FFFFF7D7C3E0C10B078FCBF1E0C 
í A3FEF 1F-DCE8C 08000 

120 DAT AOOOOl E lE7EoC*FFFFFFFFóD7E iE 1E000000 7 C7C 7 C 38FF8F 
0E0E8FFF 38 7 C7C7C00 

130 DhTmOC3E7C7QFFF F4F3F7A3h 1 3050F0F070 30080COEBDC lEEF 
3F LAQCÍE6FFC78B0Í 0 
140 r 

150 FOR T=0T07 : READA1 : FOP I =0 T031 3 B 1>-B li+CMR % ' OmL < "ftH -/ +hI 
DS< Al r 1 *2+ 1,2 • * > sNEXT t’3PR ITE% T + 1 ,'=Bl : BS=" "si^EXT 
160 ' 

170 S^PEEF • 4 <«-PEEk<. 5 >*256 

1 80 FORr*OT02 = FOPI*^HiOOTOÃH2FF*0=PEEK< I *5> *VPOKEI+T*& 
H800 r 00 R < M/2) : IFI > &Hi CF OR I < ÊH l 801 HEHOPOKE I ♦ 1 ♦&H800+&H2 
000 f ÃHiE=G0T0?00 

1*0 0P0KE1+ f * í HBÜÜ+Í-.H20Ü0 . <-HoE 
200 HEXIX.T 

210 ’ 

220 DA TA 7 E r 53C753C5-* 3C54 3C543C543L *4 7E i 47E°8 3C?83C8o3C 
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S 6 3 C 8 ó 3 1 8 ó 3C i ó 7 E i ó 7 E F E) 3 C F B 3 C Ei A 3 C B h 

230 DATA3CB A3CB A3C lrt~EiA7E 32 3C32 3C.2C 3C.-JL 3C2C 3C2L 3CiC E 
íCCCiFC C .1 F 33 iF 3 3 i F CC i F C C i F 33 i F 33 iF 

240 DA TàQOaEOC AE".ÜC hEOEAEFTaEF" FhEOEmEOCmEOBmEOOOOÜOoOOO 


0 0 0 000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 000 0 0 0 0 00000 
250 


260 FOR T-0T02 « R ES T0RE2 i 0 i FOR I -0T02 * P E-<Oh t * FOR J-0 l 
P0KET«&H80G+I.-»20+J+&H308 ,MmL>. "&H +nl.t‘* ' i-i 4 - J*4 + i . 2 
0KET*£H8Q0+ 1*20+ J+&H2308 r OaL •' "AH +nIL*’E 1 A% . 3*4+3. 2 


o i ? * y 

» .1 Í VP 


I I 


: HE 


XT J . I r "í 
270 ‘ 

280 LOCA TEQ r 24 iDEFIHTh-Z 
290 PR INI 
300 PRINT 


3 i 0 

PR1NÍ ’ 

bbbbbb 

d d 


320 

PRINT 

bbbbbb 

ddd 

tçeeif: 

330 

PRINT" 

bb 

ddd 

€ e 

340 

PRINT' 

b t; b b b cccc 

dd 

e 6: 

350 

PRINT 

bbbbb cccc 

dd 

e f 

3óQ 

PRINT" 

bb 

d d 

e f 

370 

PRINT’ 

bb 

ddd d 

eeeeeí 


380 PRINT 

390 PRINT ddddd cccc bbbb saaaa 
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400 PRINT" dddddd cccccc: bbbbbb aaaaa 
4i0 PRINT' dd dd cc cc bb bb aa 

420 PRINT" dddddd cccccc bb aaaa 

430 PRINT" ddddd cccccc bb bb aa 

440 PRINT' dd ddd cc cc bbbbbb aaaaa 

450 PRINT" dd dd cc cc bbbb aaaaa 

460 PRINT SPRINT* PRINT SPRINT SPRINT 
470 PRINT PRESSIONE A BARRA DE ESPAÇO 
460 FOR I = i T08 * IFSTR IG ( 0 > THENK*OS G0T0540 
490 PLAY"Ui5T25503' +CHR* ( RND < i ) #7+65 > + "64" 

500 PUTSPR ITEQ , < 208 r 39> , í . T 
5iÜ FOR I-0T0300 s NE/. T 
520 NE<T SG0T0480 
530 r 

540 L0CATE2 . 22 

550 PRINT OU AL 0 NIOEL DE DIFICULDADE ? ", 

560 AS-INKEY^s IFA4-' "THEN560 
570 IFA%:> 4"0RA%<. "i"THEN56Ú 

580 TP»VAL(Af ,' íL0CaTE2, 22 SPRINT QUANThS VOLTAS DESEJA 

? ", 

590 A%*IWKEY9>s IFAt“ ' 7HEN59D 
600 IFAS > "5"0RA4< "i "THEW590 


òiO OO-OAUAS) 
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620 PUTSPR I TEO r r 0 : ON TPGOSUB i390 , ic»20 r i850 r 208G 
ó'30 PRINT" bcd 

640 PR IN F' bccl SEU TEHPO 0= 0 LAP 0 dcb , 

650 * 

660 X“£HiA6F : B«3 » 8=20 1 L=ü 

670 PUI SP RI TEO , ( ( XH0D32 ) *8-4 , ( X\32 f *8-4 > r í r B 

680 F 0 R T = 0 T 02 s P L A f " V í 5 T i 5 00 3 AR ’ LOC A TE i 8 . i 8 « P R I N T f ?C 

HR%<29> pCHR4(3i > ; "f ' ; CHR4 29 > »CHR9>< 3i) ; f " : f OR I -07 0500 

sNEXT 

690 LOCm ÍEÍ 8 r 188PR INT" ' ? CHR4 29 > ? CHRt 3i s ;CHR4' 29 
> t CHR 4 < 31); " ' s F OR I =0T050O s HEXT I „ T 
700 PLAY o4aaa ' 

710 TIME k O 

720 IFPLA í « 0 .* THEN720 

7 30 SOU HO i , i sSOUHD 3 , 2 : S0UM08 . 12 a S0UM09 r J 2 
740 ' 

750 Xí»X 

760 I F S T R I G • K ‘ T H E N S ® S - i : I F S < 0 T H E H S ~ 0 s G 0 T 0 780ELS E 7 8 0 
770 9*S+ í a 1F S > 20THEHS-20 

780 ONBG0TO790 . 800 r 810 y 820 .. 830 . 840 r 850 . 8òü 
790 X*X-32 s I. FVPEEK < X > < > 32 T HEM950ELSE87 0 
800 X-X-3 i : IFVPEEh • X ) < >32THEN950ELSE870 


8 í 0 X « X + 1 a I F 0 P E E K < X ) < > 3 2THEN9 5 0 E L SE 8 7 0 
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820 X=X+33 e IFVPEEK ' X > < > 32THEN95QEL.SE8 7 0 
830 X*X+32 s IFVPEEK < X > < > 32THE M950ELSE87Ü 
840 X=X + 3 í 5 IFVPEEK (XX >32THEN950ELSE870 
850 X=X-i s IFVPEEK « X > < >32TMEN950ELSE870 
860 X=X-33* IFVPEEK (XX >32THEN950ELSE870 
870 PUI SPR IT E0 r ( < XM0D32 > <8-4 , <X\ 32)*8-4) r i,B 
880 FOR T=QTO ( ABS(L-6 )*3> *2 + 3GsNE XT 

890 GT4-I NKEYd> 5 IFGT9>='""'Í HENGT :a O " GOT 0900ELSEIF ASC ( GTS • * 
28THENGT=3ELSEIFASC(GTl)*29THENGT«7 
900 IFGT~3THENB«B+i : IFB >8THENB=>1 
910 IFGT=7THENB=B-i s IFB ( iTHENB-8 

920 LOCATEí 5, 24 »PR INTR IGHT9> ( STR9> < TIME V3600 ) r 2 > y ,v s '"'jR IG 
HTK STRi < < TIME- < TIME\36Q0 ) *3600) \60 ) , 2 > ? 

930 SOUNDO r S»í 1 
940 GOT 0740 
950 r 

960 IF VPEEK(X>=ÃH63 AND B>í AND B <. 5 THENÍ030 
970 X-Xl 

980 30UND7 . 0 s SOUNDò r 20 ~ PLA i 'm20000s0o2c4 ' 

990 F0RT*0T050:PUTSPRITE0 r r 9:PUTSPRITE0, , 10: PUTSPR ITE 0 
, , i. : NEXT 

iOOO I FPL. AY <G> THEN1000 

i Oi 0 SOUND í , 1 : S0UND3 , 2 s S0UND8 , i 2 : S0UND9 , 12: S0UND7 , «H38 
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* SOUNDi r i 

1020 S=20 5 G0T0870 

1030 ' 

1040 PUTSPRITEO, < <XM0032>*8-4, (X\32>*8-4> , 1 ,B 

1050 L=L+i*IFL=QV+iTHENT=TIMEBGOTOiOeQELSELOCATE25,24* 

PRINTLf 

1060 FORT -OLOS"' 2+30 * NEXT 
1070 B*3*G0T0780 
1080 

Í090 8EEP 

1 100 PLAY"vl5o3co4co3co4co3co4c" , Vi5o5co6co5co6co5coó 

c" T "vl5c)4co5co4co5co4co5c" 

í 110 FOR 1*0103000* NEXT iPUTSPR 1TE0 . f 0 

1120 IFINKEYM >" "THEN1120 

1130 CLS * LOCATEO , 24 

1140 PRINT : eeecee8Ceeeeeceee«ee*efeeeeeeeee" ? 


1150 PR INT"e e * 
1160 PR INT'e e '* 
1170 PR INT"e 

1180 PR INT"e *"» 
1 190 PRINT"e e ' ? 
1200 PRINT c e ? 


e A ' * 


1210 PR INT"e 
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1220 PR INT v è‘te«e(;'6eeeçeEeeeeeeeeeeeeeÊÉ'6ÊÊfe") 

Í230 PR lNT"cccctcccttLccci;ccccccccccccccccc' p 

1240 PRINT 'c c ,r p 

125U PR lNT"c SEU TEMPO FOI "p 

1260 MT \ TP )-T >.3ôOO:nS( TP)e< T- < T\ 3600 ) *3600) \60 

1270 PRINTR1GHT*<STR*1HT<TP) .* ,2) p":",RI6HT%»:STR%<MS<TP 

)),2)j 

1200 L0CATE3Í r 24:PRINT c 

1290 PR I NT"c c' p 

1 300 PRINT"cccccccccccccccccccccccccccccccc"; 

1310 PR INI: PR INT 

1320 PRINT bhbbbhbbbbbbbbbbübbbbbbUbbbbbbbb-"- 
1330 PRINT "b b"p 

1340 PR INT 'b PRESSIONE m BARPh DE ESPriCO b"j 
1350 PR INT "b b"y 

1360 PRINT 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"’; 

1370 FORT -01 0255ST EP2 í PIJTSPR ITEO , < T , 127) , 7 / 1 6 , 3 s Al- 1 NK 
EY**IFAS=" ' THENPUT5PR ITEO, ,C)5 T *3 * CLS * GO T0270EL SE 1 F AS® 
n"ORA%»"N"THENi380ELSENEXTaGOTOi3?O 
1380 SCREENOíEND 
1390 CLS 

1400 PRINT"asàíSüSJi t (aaaaa«aaa«a*à»aaaaaaaaa s 


1410 PR INT"aaa»aaaa»aa 


aaaaaaaaaaaaa ; 
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i 420 

PRINT" aaaaaaa 

aaaaaaaaaa" ; 

1430 

PR INT"aaaa 

aaaaaaaa" ; 

1440 

PRINT"aaa 


aaaa" ; 

1450 

PRINT"aa 

aaaaaaa 

aaa" ; 

1460 

PRINT"aa 

aaaaaaaaaaaa 

aa': 

1470 

PR INT" aa 

aaaaaaa aaaaaaaa 

*"} 

1480 

P R I N T " a 

aaaaaaaaaaaaaaaaa 

a"? 

1490 

PRINT"a 

a aaaaaaa aaaaaaaa 

a"> 

1500 

PR INT "a 


a" ; 

1510 

PR INT"a 

aaaaaaaa aaaaaaa 

aa" p 

1520 

PR INT"a 

aaaaaaaa a aaaaa 

à cl cl ’ J 

1530 

PRINT"aa 

e& 31 <& «& 3l 31 cfr cl <& â 

aaaa"' p 

1540 

PRINT "aa 

aaaaaaaaaaaa 

aaaa" p 

1550 

PRINT"aa 

aaaaaaaaaaa 

aaa" p 

1560 

PR INT"aaa 

aaaaaaaaaa 

iid J • 

1570 

PR IHT"aaaa 

aaaaaaa 

aa" p 

1580 

P R I N T " a a a a a 

e 

aa" í 

1590 

PR INT' aaaaaaaa e 

aaa" p 

1600 

PR IN F aaaaaaaaaa e 

aaaaaa ' p 

1610 

PRINT"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa y: ? sRETURN 

1620 

CLS 



1630 

PRINT"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb " p 

1640 

PRINT"bbbbbbbbbbbbbbb 

bbbbbb" ? 
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1650 

PRINT"bbbbbbbbbbbbb 


bbbb"? 

i 660 

PRINT"bbbbbbbbbbbb 


bbb"? 

1670 

PR INT"bbbb 


bbbbb 

bbb 

bbb ' •' ? 

1680 

PRÍNT'bbb 


bbbb 

b bbbbb 

bb' ? 

1690 

PRINT bb 


bbbb 

bbbbbbbb 

bb"? 

1700 

PRINT"b 


bbb 

bbbbbbbb 

b"? 

í 7i 0 

PR INT"b 


bbbb 

bbbbbbbb 

b"? 

1720 

PR INT"b 


bbb 

bbbbbbbb 

b"? 

1730 

PRINT"b 

b 

b 

bbbbbbbb 

b'? 

1740 

PRINT"b 

b 


bbbbbbbbb 

b" t 

1750 

PR INT"b 

b 


bbbbbbbbb 

b"» 

1760 

PR INT"b 

bb 


bbbbbbbbbb 

b"í 

1770 

PRINT"b 

bbbb 

bbbbbbbbbb 

bb"? 

1780 

PR INT"b 

bbbbbbbbbbbbbbbbbbb 

bb"? 

1790 

PRINT"b 


bbbbbbbb bbb bbbbb 

bbb"? 

1800 

PR INT"bb 


bbb bbb bbb bbb 

bbb"? 

1810 

PR INT "bb 



e 

b b b b ‘ ' ? 

1820 

PR INT"bbb 



e bbbbbb"? 

930 

PRINT 'b bbbbb 


e bbbbbbbbb"; 

340 

PRINT"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"? «RETURN 

o. 850 

CLS 





1860 

PRINT"cccccccccccccccccccccccccccccccc" ? 

1870 

PR INT"cc 



cccccc 

cc"? 
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1880 

PRlNT"c 


cccc 


c ", 

1890 

PR INT"c 


cccc 


c". 

1900 

PRINT"c. 

c cccccccc 

cccc 

c 

C", 

19Í0 

PR INT"c 

ccccccc 

cc 

ccc 

c", 

1920 

PRINT"c 

cccccc 


CCC 

c', 

1930 

PRINT"cc 

ccccc 


CCC 

C", 

1940 

PRlNT"ccccc cccccc 

CCCC 

c", 

1950 

PR INT" cccccc ccccccccccccccccc 

C"p 

1960 

PR J.NT' v cccccc cc 



c", 

1970 

PRINT"cccccc c 



C", 

1980 

PR INT"cc 

c 



cc" i 

1990 

PRINT"c 

c 

‘CCCCCCCCCCCCCCCCC", 

2000 

PR INT"c 

cc 



cc", 

2010 

PR INT"c 

cccccc 



c", 

2020 

PR INT"C 

cccccccc 



c"f 

2030 

PR INT"c 

ccccccccccccccc cccccccc 

c", 

2040 

PRINT"c 


e 


C", 

2050 

PR INT"c 


e 


c"f 

2060 

PRINT"cc 


e 


cc " , 

2070 

PRINT"cccccccccccccccccccccccccccccccc' , 


2080 CL.S 

2090 PRINT"dddddddddddddddddddddddddddddddd", 


sRETURN 


2i 00 PRINT"dddd 


d d d d d d d 


d d d d d d d d d " 
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2íi0 

PR INT"ddd 

dddd 

d d d d d d 

/7 „ 

r 

2120 

PR lí! í "d cl 

ddd 



7 / 

r 

2 í 30 

PRINT' d 

ddd 

dddd 


J 5 

2140 

PRINT" d 

ddd 

d dddd d dddd 


' ' m 

f 

2.1.50 

PR INI" dd 

ddd 

dcldddddddddddddd 

r 

2160 

PRINT "dddddd 

dd 

d d d d d d d d d d d d dddd 

tr m 

r 

2170 

PR INT"ddddd 

dd 

dddd ddddddd 

"r 

2180 

PRlNT"dddd 

d d 

d d 

ddddd 


2190 

PRINT"ddd 

dddd 


ddd 

" . 

t 

2200 

P R 1 . N T " d d 

d d d d d d d 


d d 

" u 

r 

2210 

PRINT d d d 

dddd 

d Y2ddd 

d" 


2220 

PRINT ddddd 

dddd dddd d d d 

d 

r 

2230 

PRINT ddddddd 

d d d d d d d d d d d d d d d 

d 


2240 

PRINT"dd 






2 2 “30 SCREENO ; BEEP 
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Referências 

Nível de compreensão do programa pelo usuário: MEDIANO. 
Tipo de jogo : LÓGICA. 

Dificuldade do jogo: DIFÍCIL 


O jogo 

Você está perdido dentro do labirinto do rei Minos, na ilha de Creta. Seu tempo se esgota 
a cada segundo ... Vocé tem de correr pelas passagens e achar a saída, antes que as portas sejam 
fechadas para sempre. 


Fita K-7 

Para armazenar: depois de digitar o programa, salve-o em fita com o comando: 
CSAVE"LAB-3D" «- 1 

Para recuperar: para recuperar o programa da fita, digite: 

CLOAD"LAB-3D" <-l 
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Disquete 

Para armazenar: depois de digitar o programa, salve-o em disquete com o comando: 
SAVE’ LAB-3D.BAS" «- 1 

Para recuperar: para recuperar o programa do disquete digite : 

LOAD"LAB-3D.BAS" *1 


Como jogar 

Digite RUN e «-* ou pressione a tecla F5. 

0 jogo consiste em tentar sair, velozmente (inicialmente dentro de um intervalo de 400 
segundos), de dentro do labirinto. 

Na tela aparece uma visão frontal do labirinto, tal como veria uma pessoa, com as paredes 
e passagens. No rodapé da tela está o cronômetro progressivo, que corre até o tempo limite. Além 
disso, uma seta indica a direção verdadeira, representando uma espécie de bússola. 

Utilizando as teclas de movimentação de cursor de “para esquerda” («-) e “para direita” (-*•), 
altera-se a direção de movimentação, enquanto a tecla “para cima” (t) acarretará em um passo 
adiante, e a tecla “para baixo” (I) terá o efeito de um passo para trás. Todos estes movimentos 
possuem correspondência com o joystick, que também pode ser utilizado. 

Conseguindo sair do labirinto em tempo hábil, um novo tempo limite será estabelecido 
com um valor inferior ao anterior. 

Para interromper o jogo a qualquer momento, pressione CTRL + STOP. 


Í0 REM — Labirinto Tridimensional 
20 REM 

30 SCREENÍ , r 0 5 CLEAR 500 . &HEEFF 
40 DEF USR=&HEFQ0 3KEY0FF : WIDí H32 
50 0N INTER0Al.=50 G0SUB 240 

60 DIM S%<ií ) ,C4t Í3> ,W%< í 8 , 2 , 1 ) , M% < 9 r 9 > ,. M7% ( 9 , 9 ) : TT%=°4 
00 


70 L0CATE 14, ií : PR INT" AGUARDE" : G0SUB 1020 
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80 GOSUB 740 5 GOSUB 19Q:INTERUAL ON 

90 PL.AY"T255L64Uí5N40N4iN42":G0SUB 4í0 

ÍOO I4=.1NKEY$5F0R IX=0 TO 2 

liO IPX=STICK(IX> :IF IPX THEN IX=2 

120 NEXT I X s I F IPX®0 THEN ÍOO 

130 IF IPX=i AND MX ( XX , YX ) =2 THEN GOTO 320 

140 IF IPX«1 AND YX<9 THEN IF MX < XX r YX+ 1 ) >0 THEN YX=Y% 

+ 1 : GOSUB 190 

150 IF IPX=5 AND YX>0 THEN IF MX ( XX , YX-1 ) >0 THEN YX=»YX 
-1* GOSUB 190 

160 IF IPX=3 THEN SPX*<SPX+í> AND 3# GOSUB 190:G0SUB 54 

ü 

170 IF IPX-7 THEN SPX=(SPX-i) AND 3:G0SUB 190:G0SUB 59 
0 

180 GOTO 90 

190 IF IP%=3 OR I PX=7 THEN 220 

200 XSX= 5 XSX+ (3 AND <IPX=Í AND SPX=Í OR IPX=»5 AND SPX=3 
) )- < 3 AND <IPX=5 AND SPX=í OR IPX=1 AND SP%=3>) 

210 YSX=YSX+(3 AND (IPX=Í AND SPX=2 OR IPX=5 AND SPX=0 
> ) - ( 3 AND <IPX=5 AND SPX=*2 OR IPX=1 AND SPX=0>) 

220 PUTSPRITE 0 r ( XSX , YSX > , 4 r SPX s RETURN 
230 

240 TMX=TMX + i sLOCATE 23 r 22:PRINT USIN6"«#a#", TMX 
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250 IF TMX< TTX THEN RETURN 

260 INTERVAL OFF 

270 CLS SLOCATE í r íi 

280 P L A Y"T40V i 5L8N20N í 9N i 8N í 7 " 

290 PR INT" FICOU PRESO 
300 RETURN 380 
3i 0 r 

320 CLS* INTERVAL. OFF «COLOR Í5 

330 A9>="T 80V15L32N50R 32N5ÜR 32N50R32T 6ÜN54R 16T80N54R 32N 
54R 32N54R 32H57R í 6N57R 32N57R32N57R32T32N62 
340 PLAY "XA% ; " , "R32XA4 ; " r " R64XAÍ» ? 

350 LOCATE i r í 1 « PR 1NT"ESCAP0U ! " 

360 PRINT"TEhPOs" P TMX«" SEGUNDOS . " 

370 IF TMX< TTX THEN T T%=> TMX 
380 PUTSPRITE 0, ( 128, 208 > ,4,0 
390 FOR I = i TO 10000 « NEXT «GOTO 80 
400 r 

410 FOR WX-2 TO 0 STEP--1 : VX«YX+3-WX 
420 IF VX*iO THEN GOSUB 670 « KX-WX R WX-G 

430 IF VXCiO rHEN IF HX < XX . UX ) -0 THEN GOSUB ó70«KX=WX« 
WX = 0 

440 NEXT W/.«0X=0: IF MXtXX, YX+2-KX >»2 THEN 0%=i « WX~R X « G 


OSUB 670 
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450 IF X X = :: 9 THEN FOR DX=3 TO i + KX STEP - i : OCX-O : GOSUB 
690 5 NEXT DXsGOTO 490 

460 UX=0 s FOR DX-3 TO Í+KX STEP -1: OCX-O 
470 IF MX ( XX+i r YX+VX) >0 IHEN OCX-i 
480 GOSUB 690 s OX=OX+ i : NEX 1' DX 

490 IF XX-Ü THEN FOR DX=6 TO 4+KX STEP -:i. : OCX-O : GOSUB 
690: NEXT DXsGOTO 520 

500 UX-OsFOR DX-ó TO 4+KX STEP --Í :OCX»Ü= IF MX 1 xX~í , YX+ 
07.) >0 THEN OCX»! 

510 GOSUB 690 : OX-VX+ í : NEXT DX 
520 RE TU RN 
530 r 

540 FOR IX=0 TO 9: FOR JX-0 TO 9 
5 5 0 M T X (. J X r I X ) ■ M X < I X , 9 - J X ) 

560 NEXT JX r I% 

570 SWAP XX , YX • XX-9-XX s GOTO 630 
580 ” 

590 FOR IX=0 TO 9: FOR JX-0 TO 9 
600 MTX < JX , 9- 1 % ) -MX < IX r JX > 

610 NEXT JX, IX 

620 SWAP XX , YX : YX=9~Y% 

630 FOR IX»0 TO 9: FOR JX=0 TO 9 
640 MX < JX , I X ) -MTX ( JX , I X > 
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650 NEXT JX, IXíRETURN 
660 ” 

670 A--USR < UARP TR < W% < 0 , W% , 0% ) .) ) : RE TURN 
680 ' 

690 C í %=0 : C2X = í 28- < 32 AND <D%*2 OR DX«5>> 

700 IX=*82Ü4+D%:JX*82i 0 + D % 

710 IF OCX THEN VPOkE IX . C IX s VPOKE JX,C2X EL SE CiX-144 
»C2X=Cí%aOCX=«i sGOTO 710 
720 RE TURN 
730 * 

740 R ESTORE 1 500 s OX*0 9 SPX*1 : TMX-Ü : XSX»i i 3 : YSX*i59 
750 FOR IX=0 TO 9* FOR JX==0 TO 9 
760 READ MX<IX,JX> 

770 NEXT JX r IXíXX“-0sYX«0 

780 COLOR 0.0,0! CLS 

790 RESTORE 1610 

800 GOSUB 990* FOR IX»0 TO 11 

810 LOÇATE 0, IX* FOR JX«1 TO 16 

820 KX-ASC<HID*<S*aX> „ JX,1> ) 

830 PRINT C% ( KX ) ; * NEXT JX,IX 
840 GOSUB 990: FOR IX*Ü TO 11 
850 LOCATE 16,IX*F0R JX=16 TO i STEP-i 
860 KX=ASC ( MID4 1 . Sl < IX ) . JX , 1 ) ) 
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670 PR IN I CKK%> r «NEXT JX r IX 
880 60SU8 990: FOR IX=ii TO 0 STEP-i 
890 LOCATE 0,23-IX:F0R JX = i TO x6 
900 K X» ASC ( M ID% ( S* < I % ) „ JX r i ) ) 

910 PRINT C«fc(KX>|BNEXT JX,IX 
920 60SUB 990 s FOR IX=li TO 0 STEP -i 
930 LOCATE 16, 23- IX i FOR JX=ió TO i STEP -i 
940 K%=ASC < hlD$ < S4*. IX > , JX , 1 ) > 

950 PRINT Cl<k%>y «NEXT JX, IX 

960 LOCATE 2,2i:C0L0R 15: PRINT TEMPO LIMITE TAB<23> 
* TEMPO" 

970 PR INTTAB < 6) p TTX 
980 RETURN 

990 FOR IX =1 TO i3:READ kXsCÍ< IX )»CHR1 < KX > : NEXT IX 
1000 RETURN 
1010 r 

1020 FOR IX-832 TO 1984 STEP 64 
1030 FOR JX=Ü TO 7 

1040 KX*25ó-2 A <7-JX> :LX=2 A < JX + i )~í 
1050 MX-2 A ( 8-JX ) -1 s NX=256-2 A JX 
1060 VPOKE IX+ JX . 255 * VPOKE IX+JX+8,kX 
1070 VPOkE IX+ JX+ 16 , LX * VPOKE I%+JX+24 r MX 
1080 VPOKE I%+ JX+32 . NX : VPOKE IX+JX+40,0 
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í 090 NEXT JX,I% 

iíOO FOR I X=ü TO í 1 : FOR J X=1 TO 16 
líiü READ KXsSSí IX)=S%< IX >+CHR<b < KX ) 

1 i 20 NEXT JX, IX 

Ü30 FOR IX=0 TO í:FOR JX=0 TO 2: FOR KX*Ü TO Í8 

1Í40 READ WX<KX,JX,ÍX) s NEXT KX,JX,IX 

1150 FOR IX=Q TO 3íS$«""!F0R JX-0 TO 7 

1160 READ K% : SÍ&-S4+CHR4 ( KX > : NEXT JX 

1170 SPR I TEt < IX ) =S% s NEXT IX 

i 180 IX=ÂHEFOO 

1190 READ H$:IF THEN RETURN 

1200 POKE IX,VAL<"«H"+H4> 

1210 I X= I X + 1 5 GOT 0 1190 
1220 ” 


1230 DATA 8,i,l r i,í r i,i,l r í r i r i r i F i r i jírí 
1240 DATA 9 r 8 r l r i r l r l r i r l r í,i r í r i r i firir i 
1250 DATA 9,9,8,i r i,i,i,i,í, ir í,i r i F i,i r i 
1260 DATA 9 r 9,9 r 8 f l,i r i,i r i r i r i F í r í F i ríyí 
1270 DATA 5,5,5,5,10,2,2,2,2,2,2,2,2,2,2,2 
1280 DATA 5,5,5,5,11,10,2,2,2,2,2,2,2,2,2,2 
1290 DATA 5,5,5,5,11,11,10,2,2,2,2,2,2,2,2,; 
1300 DATA 5,5,5,5,6,6,6,12,3,3,3,3,3,3,3,3 
1310 DATA 5,5,5,5,6,6,6,13,12,3,3,3,3,3,3,3 
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1320 DATA 5, 5, 5, 5, 6, 6, 6, 7,7, 4, 4, 4, 4, 4, 4, 4 
1330 DATA 5 ,5, 5,5,6, 6,6,7 ,7 ,4, 4, 4, 4, 4, 4, 4 
1340 DATA 5, 5,5,5, 6, 6, 6, 7, 7, 4 r 4, 4, 4,4, 4, 4 
1350 ’ 

1360 DATA 144, 144, 144, 144, 144, 144, 144, 1 44, 144, 144 , 144 , 

144.0. 0.0.0.0.0.96 

1370 DATA 102,144, 144, 102,144,144,96,144,144,96, 144, 14 

4.6.0. 0.6.0.0.96 

1 380 DATA 102,102,144,102,102,144,96,96,144,96,96,144, 

6.6.0. 6.6.0.96 

1390 DATA i 44, 144, 144, 144, 144, 144, 144, 144, 144, 144, 144, 

144.0. 0.0.0.0.0.0 

1400 DATA 0, 144, 144,0, 144, i 44 ,0, 144, 144,0, 144, 144,0,0, 
0 , 0 , 0 , 0 , 0 

1410 DATA 0,0, 144, 0,0, 144, 0,0, 144, 0,0, 144, 0,0, 0,0, 0,0, 
0 

1420 ' 

1430 DATA 16,56,68,130,16,16,16,16 
1440 DATA 8,4,2,255,2,4,8,0 
1450 DATA 16,16,16,16,130,68,56,16 
1460 DATA 16,32,64,255,64,32,16,0 
1470 ' 

1480 DATA 23, 23, 5e, 23, 56, 21, d, 20, cd , 5á ,Q,e3,e3,eb,6,i3 
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,7e,d3,98,23,23, 10,T9 ,c9,>í 


í 490 

7 


1500 

DATA 

1,1,1, 0,1, 1,1, 0,1,1 

1510 

DATA 

1,0, 1,1, 1,0, 1,1, 1,0 

1520 

DATA 

1,1, 0,1, 0,1, 1,0, 1,1 

1530 

DATA 

0,1, 0,1, 1,1, 0,0, 0,1 

1540 

DATA 

1,1, 1,0, 0,0, 1,1, 1,0 

Í55Q 

DATA 

0,0, 1,0, 1,1, 1,0, 1,0 

1560 

DATA 

1,1, 1,0, 0,1, 0,1, 1,1 

1570 

DATA 

1,0, 0,1, 1,1, 0,1, 0,1 

1580 

DATA 

1,1, 1,0, 1,0, 1,1, 1,0 

1590 

DATA 

0,0, 1,1, 1,0, 1,0, 1,2 

1600 

7 


1610 

DATA 

245,237,229,248,192,184,176,145, 144, 137,136, 

129 , 128 


1620 

DATA 

245,237,229,248, Í68, 160, 152, 122, 120, 114,112, 

106,104 


1630 

DATA 

221, 21 3, 205, 248, 1 92, 1 84, 1 76, 148,1 44, i40, 136, 

132,128 


1640 

DATA 

221,213,205,248,168,160,152,123,120,115,112, 


i 


a 

5 

4 


o 

< 


I 


i 



! 


1 

1 
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